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THE INFORMATION IN THIS DOCUMc'T IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR WITHIN. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977, 1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
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1 | GENERAL 


1 ABSTRACT 
a RUNS THE SELFTEST FOR THE VT62 TERMINAL AND yet 
THE LINK BETWEEN THE TERMINAL AND THE HOST. THIS PARTICULAR VERSION 


SUPPORTS MULT ATION 
INTERFACE. OTHER VE C-11=DZDPG AND MAIND ECo11-D2DVP) 
SUPPORT THE DUP-11 AND DV-11 COMMUNICATION INTERFACES RESPECTIVELY. THE 
PROGRAM IS_ XXDP_ COMPATIBLE AND SUPPORTS SEQUENTIAL TESTING OF UP TO 8 
VT62"S. PLEASE READ ALL SECTIONS OF THIS DOCUMENT CAREFULLY BEFORE USING 
THE PROGRAM. PAY PARTICULAR ATTENTION TO SECTIONS 3.0 THROUGH 6.0 


DEF INITIONS 
MODEM = EQUIPMENT, ALSO KNOWN AS A_ '‘DATASET'', WHICH PERFORMS THE 
MODULAT JON/DEMODUL ‘7 ION OF DATA SIGNALS. THIS UNIT PROVIDES TIMING 
FOR SYNCHRONOUS COMMUNICATION DEVICES. 
MODEM err =~ EQUIPMENT WHICH CONNECTS TWO SYNCHRONOUS DEVICES at a 
Fore ta RATHER THAN TELEPHONE VOICE LINES. THE ELIMINATOR HAS A 


CL FOR TIMING. 
DDCMP PROTOCOL = DEC'S COMMUNICATION LINE PROTOCOL. 
UUT = _UNIT R TEST. 
PTABLE - A TABLE OF INFORMATION, WITH ENTRIES FOR EACH UNIT UNDER TEST, 
THAT DESCRIBES THE HARDWARE (BUS ADDRESS, VECTOR, -) 
SYNCHR OMMUNICATION INTERFACE . 
EIGHT E. MU ONOUS COMMUNICATION INTERFACE. 
DV - SIXTEEN LINE, MULTIPLEXED, SYNCHRONOUS COMMUNICATION INTERFACE. 
CRC a). = CHECKSUM USED IN DEC NETWORK PROTOCOL (CYCLIC REDUNDANCY 


MICRODIAGNOSTIC = THE MICROCODE IN THE VT62 THAT PERFORMS THE DIAGNOSTIC 
CHECKOUT OF THE HARDWARE. (ALSO KNOWN AS ‘'SELF TEST) 
SELF TEST - SEE ‘MICRODIAGNOSTIC''. 


Aly NOTES 
THIS PROGRAM WAS DESIGNED AND ag! yew US ING Ly a ae TECHNIQUES. 
THE PROCEDURE CAUSED THE PROGRAM TO HAVE SOME OPERATIONAL CHARACTERISTICS 
WHICH ARE OF INTEREST TO THE USER. THESE CHARACTERISTICS ARE DISCUSSED 
IN THIS SECTION. THIS DISCUSSION IS NOT VITAL TO LEARNING HOW TO OPERATE 
THE PROGRAM HOWEVER. 


THE MOST IMPORTANT OPERATIONAL CHARACTERISTIC OF geen DESIGN ,AS IT 
Santaal THE USER, ERRORS ARE REPORTE ae" | os . IGN OF THE 
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LOG WOULD BE 

DZ ERROR. MESSAGE WOULD GIVE SPECIFIC i 
TNF ORMAT ION AS REGISTER CONTENTS AND THEN RETURN CONTROL TO THE NEXT 

LEVEL. - THE NEXT LEVEL, THE LOGICAL og Maat 5 i OR DEVICE SERIAL 

NUMBER WOULD BE REPORTED. AT THE LEVEL ABOVE T STILL. MORE GENERAL 

ie WOULD BE GIVEN. THE REPORTS CONTINUE "ori THE HIGHEST LEVEL 


COMMENT FIELDS IN THE LISTING WITH SQUARE BRACKETS ([]) REFER TO 
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FUNCTIONAL BLOCKS IN THE DESIGN AND HAVE NO SIGNIFICANCE TO THE USER. 
THEY ARE RETAINED FOR USE BY PROGRAM MAINTAINERS. 


DDCMP 

THIS SECTION GIVES A VERY BRIEF DESCRIPTION OF DDCMP AS USED BY THIS 
DIAGNOSTIC. THE DESCRIPTION IS BY NO MEANS COMPLETE; IT IS INTENDED TO 
HELP THE USER UNDERSTAND ERROR REPORTS. 


THERE ARE THREE TYPES OF DDCMP MESSAGES: CONTROL, DATA AND BOOTSTRAP. 
Hi T GE IS NOT USED BY THIS DIAGNOSTIC. THE DATA MESSAGES 
EADER, THE DATA ITSELF 


THE 

y sO. THAT. EACH STATION ON THE 

RANSMITTED PROPERLY. ALL 

MESSAGES A HE HEADER SO THAT MESSAGES ARE 
DIRECTED TO AND FROM THE PROPER STATIONS ON A MULTIDROP LINE. 


THERE ARE FOUR CONTROL ge USED BY THIS DIAGNOSTIC: ACK, NAK, 
AND STACK. ACK IS ACKNOWL EDGE SA 
PROPERLY Tt Seed NORMALLY: ME 
MESSAGE WITH THE NUMBER OF THE LAST MESSAGE IN THE HEADER. 
USED WHEN THERE IS NO DATA MESSAGE TO SEND BACK. NAK IS NEGATIVE 
SAGE SENT AND IT INDICATES THE THE REASON 
STRT IS USED TO INITIATE COMMUNICATION BETWEEN TWO 
THE RECEIVING STATION SETS ITSELF UP AND ACKNOWLEDGES THE STRT 
WITH A STACK, OR START ACKNOWLEDGE. THE STRI-STACK SEQUENCE IS USED 
BEFORE AND AFTER EACH TEST. ALL MESSAGES ARE REQUIRED TO BE ACKNOWLEDGED 
WITH EITHER A DATA MESSAGE OR AN ACK. 


te at tk a 2 a a a td I os ot os 
CYBER S Sa SRS Se 
WOON AUR W 0 OONAUS WOO 


—_— 
oO 
— 


EQUIPMENT REQUIREMENTS 

THIS PROGRAM REQUIRES A PDP-11 WITH A MINIMUM OF 16K CORE AND A_ CONSOLE 
TERMINAL. A CLOCK OPTION IS NOT REQUIRED, BUT ONLY ROUGH TIMING IS 
AVAILABLE WITHOUT ONE. THE PDP-11 CONSOLE SWITCH REGISTER IS NOT USED. 
ONE OR MORE DZ-11 MUST BE CONNECTED TO THE TERMINALS = TEST VIA 
COMMUNICATION LINES THROUGH EITHER MODEM'S OR NULL MODEM'S. THE VT62'S 
MUST BE IN ASYNCHRONOUS MODE AND ON-LINE. THE TERMINAL ADDRESS SWITCHES 
ON THE CONTROL BOARD MUST BE SET TO MATCH THE TERMINAL ADDRESS ASSIGNED 
TO THE LOGICAL UNIT (SEE SECTION 4.0). 


nage PROCEDURE 
THIS PROGRAM MAY 
MAY ALSO BE LOADED FROM PAPER TAPE OR DISK USING XXDP PROCEDURES. 


BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER. IT 


STARTING AND RUNNING THE PROGRAM 

THE wah ey ADDRESS FOR THE PROGRAM IS 200. THE PROGRAM WILL FIRST ASK 
IF CLOCK (KW11=L OR KW11-P) IS AVAILABLE. IT WILL THEN ASK IF A LINE 
PRINTER IS AVAILABLE. IF A LINE PRINTER IS SPECIFIED, THE PROGRAM WILL 


Co Co NNN 
SSBLRARRAV ALS IRIVRHRANASSS 





G 
ASSEMBLY ROUTINES MACY11 30A(1052) 29-DEC=78 11:50 PAGE 6 
CZ2D2CB.P11 21-NOV-78 16:33 SEQ 0006 


PAGE 6 


ASK _FOR ITS ADDRESS (DEFAULT = 177514). THE PROGRAM ALSO ASKS FOR MEMORY 
peg Q=BUS OPTION AND LINE FREQUENCY. IF NEITHER CLOCK IS _ SPECIFIED, 
THE PROGRAM WILL ASK THE USER TO TYPE TWO CHARACTERS, FIVE SECONDS APART. 

IN ORDER TO PROVIDE ROUGH TIMING. 


THE PROGRAM WILL THEN PROMPT THE te 44 TYPING A _‘*>'', NOW THE USER MAY 
TYPE ONE OF SEVEN COMMANDS: RES(TART), CON(TINUE), ZFL(AG). 
pa DRO(P) OR DIS(PLAY), WHERE THe LETTERS IN PARENTHESIS NEED NOT BE 

TYPED. IF I TAKE IS MADE, THE RUBOUT KEY IS USED TO DELETE THE 

THE PROGRAM WILL TYPE A MESSAGE IF THE COMMAND 

D. HESE COMMANDS IS EXPLAINED IN THE SECTIONS BELOW. 

SWITCHES ARE USED TO SET SOFTWARE FLAGS SUCH AS ‘LOOP ON ERROR’’. THE 
FLAGS USED BY THIS PROGRAM ARE DESCRIBED IN SECTION 4.8. 


START 

THE START COMMAND (STA) ZEROS ALL FLAGS (PRINT ALL ERROR MESSAGES AND 
NOT LOOP WITHIN TESTS) AND_ INITIATES THE OPERATOR DIALOGUE. 
sve THE DEVICE TABLE (PTABLE) IS 


BELOW AND ARE T 
OPERA ING TYPING ERRORS ARE 
ALSO DESCRIBED BELOW. CR REFERS TO THE RETURN KEY (CARRIAGE RETURN). 


DIALOGUE 
# UNITS ? (DECIMAL) C1) 
DZ ADDRESS: ? (OCTAL) NNNNNN C2] 
DZ VECTOR: ? (OCTAL) NNN C3] 
DZ BUS PRIORITY: ? (OCTAL) N [4] 
TERMINAL ADDRESS: ? (OCTAL) N [5] 
LINE NUMBER: ? (OCTAL) N [6] 
BAUD RATE: ? <OCTAL) N [7] 
STOP CODE/CHAR. LENGTH: ? (OCTAL) N [8] 
CHANGE S.W. ? (Y OR N) C9) 
HOW MANY INITIATE TRIES BEFORE ABORT ? (OCTAL) 10 [10] 
USE ALL ZiRO"S FOR LOOPBACK DATA ? (Y OR N) Y [11] 
EXPLANATION 


{[1] TYPE THE TOTAL NO. OF UUT'S IN DECIMAL. QUESTIONS 2 
THROUGH 5 WILL BE REPEATED UNTIL ALL UUT'S HAVE BEEN 
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DESCRIBED. THE USER DOES od HAVE TO ANSWER THESE QUESTIONS 
FOR EACH DZ HOWEVER, IF THERE ARE MULTIPLE UUT'S PER DZ OR 
PER DZ LINE. THE EXPLANATION FOR QUESTION 5 SHOWS HOW TO 
ENTER_MULTIPLE UUT'S. 

TYPE _THE Y ADDRESS OF THE DZ. THIS MUST BE AN EVEN OCTAL 
ae Ber MAT UT GREATER THAN 177776. THE USER MAY TYPE CR TO USE 


VALUE: _NNNNAN. 
TYPE THE VECTOR ADDRESS FOR THE DZ. THIS MUST BE EVEN 
OCTAL NUMBER a GREATER THAN 376. THE USER MAY TYPE CR TO 
USE_THE DEFAULT VALUE: NAN. 
TYPE THE BUS PRIORITY LEVEL OF THE DZ. THIS MUST BE A DIGIT 
dog 0 TO 7. AGAIN, THE USER MAY TYPE CR TO GET THE DEFAULT 


DUE: N. 
TYPE THE TERMINAL ADDRESS FOR EACH i hee ATTACHED TOQ_ THE 
DZ LINE. SEPARATE EACH ADDRESS WITH A COMMA. THIS IS THE 
ADDRESS SELECTED BY THE SWITCHES oie THE I/0 BOARD IN THE 
TERMINAL AND _IS AN OCTAL NUMBER BETWEEN 0 AND 377. THE USER 
MAY TYPE CR TO GET THE DEFAULT VALUE: 
TYPE THE DZ_LINE NUMBER (0-7) TO WHICH THE TERMINAL IS 
ATTACHED. TYPE CR_TO GET THE DEFAULT OF 
TYPE THE CODE FOR THE BAUD RATE DESIR ED. THE CODES ARE 
GIVEN IN THE TABLE BELOW. TYPE CR TO GET THE DEFAULT: N. 


BAUD RATE TABLE 
YPE TO oe THIS RATE 


T 
0 
1 
2 
3 
4 
5 
6 
7 
1 
1 
1 
1 
1 
, 
, 
: 


0 
1 
2 
3 
4 
5 
6 
7 


19,200 


FOR FASTER TESTING, USE AS HIGH A BAUD RATE AS PRACTICAL. A 
BAUD RATE OF 19,200 IS NOT AVAIABLE ON THE VT62. 


TYPE A CODE TO SELECT THE STOP CODE AND CHARACTER LENGTH. 
THE CODES ARF GIVEN IN THE TABLE BELOW. 


STOP so rans a LENGTH 
Loe aT CODE LENGTH 
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C9] 


[10] 


[11] 


BITS 


CO NIOSW100 IOs 


IF THE USER WISHES TO CHANGE EITHER OF THE TWO SOFTWARE 
PARAMETERS D FOR QUESTIONS 7 OR 8, HE MUST ANSWER 
NG ‘'Y"'" “ont THE USER WISHES TO BYPASS 


OGRAM IS TO ATTEMPT TO 
BEFORE ABORTING THE UNIT. THE USER MAY 
TAL NUMBER BETWEEN 0 AND 177777. ‘TYPE CR TO 
DEFAULT TO 4 2 (OCTAL) ATTEMPTS. 
IF THE USER TYPES ‘'Y’*, THE L ee DATA WILL BE 255 ZERO 
BYTES. IF THE USER’ Ti "N'', THE LOOPBACK DATA WILL BE A 
PATTERN OF ALTERNATING 1 AND 0 BITS. SEE SECTION 8.2 FOR 
DETAILS ON THE LOOPBACK TEST. 


EXAMPLE OF DIALOGUE 
THE FOL a” 5 he oe CONF IGURAT ION DZ 
¢4@0000, ee 3) WITH RMINALS ae SES 0 AND 1) ON 
LINE 0, ECOND DZ (160010. “320, 4 an SINGLE TERMINAL 
(ADDRES a 3 ON LINE 2 AND A THIRD D (170006, 0. 24) pe bi 


THREE TERMINALS (ADDRESSES *0) ON LINES oo 
se NUE AEA? (O'S BHC Race Er HRD 
> 
# UNITS ? (DECIMAL) 6 
DZ ADDRESS: ? (OCTAL) 160000 
DZ VECTOR: ? (OCTAL) 310 300 
DZ BUS PRIORITY: ? (OCTAL) 4 3 
TERMINAL ADDRESS: ? (OCTAL) 0 0,1 
LINE NUMBER: ? (OCTAL) 0 
BAUD RATE: ? (OCTAL) 0 16 
STOP CODE/CHAR. LENGTH (SEE DOC.): ? (OCTAL) 0 
DZ ADDRESS: ? (OCTAL) 160000 160010 
DZ VECTOR: ? (OCTAL) 300 320 
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DZ BUS PRIORITY: ? (OCTAL) 3 
TERMINAL ADDRESS: ? (OCTAL) 1 5 
LINE NUMBER: ? (OCTAL) 0 2 
BAUD RATE: ? (OCTAL) 16 7 
STOP CODE/CHAR. LENGTH (SEE DOC.): ? (OCTAL) 7 
DZ ADDRESS. ? (OCTAL) 160010 170000 
DZ VECTOR: ? (OCTAL) 320 340 
DZ BUS PRIORITY: ? (OCTAL) 3 5 
TERMINAL ADDRESS: ? (OCTAL) 5 0O 
LINE NUMBER: ? (OCTAL) 2 1-3 
BAUD RATE: ? (OCTAL) 7 7,16,7 
STOP CODE/CHAR. LENGTH (SEE DOC.): ? (OCTAL) 7 
CHANGE S. W. ? (Y OR N) N 
(NOTE WHERE CR WAS USED TO ACCEPT THE DEFAULT) 
TYPING ERRORS 
(1) wom KEY IS USED TO DELETE ANY CHARACTERS WHICH ARE IN 
(2). IF THE RESPONSE IS NOT WITHIN LIMITS OR IS IN THE WRONG 
FORMAT, THE PROGRAM WILL NOTIFY THE USER AND ASK THE 
QUESTION AGAIN 
(3) WHEN ENTERING MULTIPLE TERMINAL ADDRESSES FOR A SINGLE 
THE USER_MAY NEGLECT TO TYPE ONE OR MORE ADDRESSES. 
A CASE, THE a MERELY ENTERS THE SAME DZ ADDRESS, 
AND PRIORITY IN THE NEXT SERIES OF QUESTIONS AND THEN EN 
THE REMAINING ‘eee ADDRESSES. REMEMBER; THE SERIES OF 
QUESTIONS (2 THROUGH 5) WILL BE RE-ASKED UNTIL ALL UUT'S 
HAVE BEEN ACCOUNTED FOR. 
RESTART 
THE RESTART COMMAND (RES) STARTS THE PROGRAM WITHOUT CLEARING THE PTABLS. 
ALL FLAGS ped! TO Wwe %) INITIAL STATE UNLESS THE FLAG SWITCH IS USED TO 
CHANGE — (SECTION 4.8). THE OPERA DESCRIBED IN 4.1 DOES 
NOT TAKE PLACE UNLESS REQUESTED. SC SED, THE PROGRAM 
WILL ASK IF THE USER WISHES TO CHANGE THE HARDWARE TABLE AND IF HE WISHES 


TO CHANGE THE SOFTWARE TABLE. IF THE USER ANSWERS YES (BY TYPING ‘'Y'') TO 
THE HARDWARE TABLE QUESTION, THAT PORTION OF THE DIALOGUE DESCRIBED IN 
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SECTION 4.1 BEGINNING WITH QUESTION 1 ENDING WITH QUESTION 5 WILL TAKE 
ae hte IF THE USER_ANSWERS YES TO THE SOFTWARE TABLE QUESTION, HE WILL 
— ASKED QUESTIONS 7 AND 8. 


THE MOST COMMON USE OF THIS COMMAND IS TO CHANGE RUN-TIME FLAGS OR TO 
THESE FLAGS ARE_ DESCRIBED IN SECTION 4.8 = SWITCH 
NG A '*C'* WILL FORCE THE SUPERVISOR TO ISSUE A_ PROMPT 
THAT THE USER MAY aT THE RESTART COMMAND FOR THIS 

PURPOSE . NOTE: IF THE USER USES i se T COMMAND AFTER A “*C, HE 
HAVE TO REENTER ALL DEVICE INFORMAT I 


CONT INUE 
THE CONTINUE COMMAND WILL RESTART THE PROGRAM AT THE TEST WHICH WAS 
INTERRUPTED. UNLIKE THE RESTART DOES NOT 

FLAGS BACK TO THE INITIAL STATE. 

THE LAST START OR RESTART. THE USER HAS THE SAME DIALOGUE AND F 
OPTIONS AS DESCRIBED FOR THE RESTART COMMAND. 


tp FLAGS 
THI WILL ZERO ALL FLAGS (SECTION 4.8) AND TYPE A_ PROMPT. 
-8 DESCRIBES THE EFFECTS OF CLEARING ALL FLAGS, BUT ESSENTIALLY, 
L LOOPING AND HALTS WILL BE DISABLED AND ALL ERROR INFORMATION WILL BE 
PRINTED IN THE EVENT OF AN ERROR. 


ADD UNITS 
WHILE TESTING MULTIPLE UNITS, THE USER MAY WISH TO DROP A PARTICULAR UNIT 
OCEDURE AND, LATE 


AFTER T HAS BEEN gat (SEE SECTION 4.6), THE USER MAY ADD THE 
UNIT BY TYPING ''*C'' AND USING THE ADD COMMAND AS FOLLOWS: 


ADD/UNI :N 
WHERE N IS A DECIMAL UNIT NUMBER THAT SPECIFIES THE UNIT TO BE ADDED. 
UNITS ARE NUMBERED FROM 1 ys 32 aor TO THE ORDER _IN WHICH THEY WERE 
rc” tary FOR La, 3 HARDWARE T MULTIPLE UN 


THE Ay AND LAST UNIT GROUP OF UNITS 

BY A DASH (1.E., vert :1-10 WILL ADD THE FIRST TEN UNITS). 
AFTER A START COMMAND, ALL UNITS ARE CONSIDERS ADDED. THERE IS NO NEED 
TO USE THE ADD COMMAND UNLESS THE UNIT WAS DROPPED. 


DROP UNITS 
TO REMOVE A UNIT FROM TESTING. THE DROP COMMAND (DRO) IS USED. TO USE 
ee TYPE “AND DROP THE UNIT(S) USING THE DROP COMMAND AS 


DRO/UNI :N 
WHERE ‘N’* IS A DECIMAL UNIT NUMBER WHICH SPECIFIES THE UNIT TO BE 
DROPPED. UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE te IN WHICH 
THEY WERE og A FOR i HARD TABL MUL E MAY le 
DROPPED TYPING _ EACH UNIT NUMBER 
DRO/UNI :1 1:3: 7) OR BY TYPING THE FIRST AND ST UNIT RS 
CONTIGUOUS GROUP SEPARATED BY A DASH (I.E., DRO/UNI:1-9 CAUSES THE FIRST 
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NINE UNITS TO BE DROPPED). AFTER THE PROGRAM IS RESTARTED, THE SPECIFIED 
UNIT(S) WILL NOT BE INCLUDED FOR TESTING. 


DISPLAY PTABLE 

WHEN THE DISPLAY COMMAND IS TYPED, THE y Ht 3 CONTENTS OF THE PTABLE WILL 
BE PRINTED. UNITS THAT HAVE BEEN DROPPED WILL BE SO MARKED. THIS 
COMMAND IS USEFUL FOR VERIFYING THE PTABLE CONTENTS. 


SWITCH OPTIONS 

THERE ARE THREE pom fe OPTIONS AVAILABLE FOR USE WITH THE COMMANDS: 
/TES:, /PAS ny #4 FLA:. hg TEST SWITCH, /TES:, IS USED ONLY WITH THE 
START COMMAND AN D THE RESTART COMMAND. iT IS USED TO SPECIFY THE 
fae tee TEST(S) TO BE RUN. IN_CASES WHERE ALL TESTS ARE NOT TO BE RUN. 
FOR EXAMPLE, IF THE USER WISHED TO RUN THE LOOPBACK TEST ONLY, HE WOULD 


>STA/TES:2 
IF THIS SWITCH IS NOT USED, ALL TESTS WILL BE RUN AS THE DEFAULT 
CONDITION. 


THE PASS SWITCH IS USED TO SPECIFY THE NUMBER OF PASSES TO BE RUN. TO 
RUN THE LOOPBACK TEST TWENT ya pene Soh ‘y H USER WOULD TYPE: 


>ST. S:2/PA 
THIS SWITCH MAY BE USED WITH THE START, RESTART AND CONTINUE COMMANDS. 
THE DEFAULT CONDITION IS ESSENTIALLY AN INFINITE NUMBER OF PASSES. 


THE FLAG SWITCH IS USED TO SET FLAGS WHICH CONTROL PROGRAM OPERATION AND 
ERROR PRIN BHA THIS SWITCH MAY BE USED WITH THE CONTINUE COMMAND AS 
WELL AS THE START COMMAND AND RESTART COMMAND. THE AVAILABLE FLAGS ARE 
SHOWN IN THE TABLE BELOW. 


FLAG EFFECT IF SET 
LOE LOOP ON ERROR 
HALT ON ERROR 
INHIBIT ERROR REPORTS 
INHIBIT BASIC ERROR ig 
INHIBIT phat ERROR REPORT* 
ag ALL_TYPEOUTS tOT THE PRINTER 


ON ERPOR 
UNATTENDED MODE (NO MANUAL INTERVENTION) 
PRINT TEST NUMBER 
*SEE SECTION 5.0 


EXAMPLE : 
IF THE USER WISHES TO > THE PROGRAM WITHOUT ERROR MESSAGES AND HAVE IT 
LOOP ON ERROR, HE WOULD TYPE: 

>RES/FLA:LOE: IER 


EXAMPLE : 
ror USER LATER WANTED TO STOP THE LOOP ON ERROR FEATURE, HE WOULD 


>CON/FLA:LOE=0 
NOTE: THE ERROR REPORTS WOULD STILL BE INHIBITED. 
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ALL FLAGS ARE DEFAULTED TO ZERO (NOT SET). 


ERROR AND INFORMATIONAL MESSAGES 

AS NOTED IN THE DESIGN ad (SECTION 1.3), A SINGLE ERROR MAY RESULT IN 

SEVERAL MESSAGES BEING TYPED. THIS IS DUE TO THE STRUCTURE OF THE 
PROGRAM. EACH SECTION, IN THE EVENT OF AN ERROR. REPORTS THE INFORMATION 

AVAILABLE TO ok THE. FINAL MESSAGE FOR EACH ERROR CONTAINS THE UNIT 

NUMBER (DECIMAL 1 1 TO pe ~- SEE SECTIONS 4.5 AND 4.6) AND THE PHRASE: 
END OF ERROR REPORT’ 


THERE ARE THREE LEVELS OF ERROR REPORTS. BY USING THE FLAG SWITCH 
(SECTION 4.8), ONE OR MORE LEVELS OF REPORT MAY BE ae THE FIRST 
eB CONSISTS “OF AN ERROR NUMBER, PC CONTENTS AND ERROR TYPE (HARD, SOFT 
OR AL). THE ERROR NUMBER CAN BE RELATED TO THE TABLE AT THE END OF 
THIS. SECTION. THE PC CONTENTS GIVE THE ADDRESS WHERE THE ERROR REPORT 
MECHANISM WAS INVOKED. _ THE mx © LEVEL ~S ERROR REPORT) GIVES AN 
Rename DESCRIPTION OF THE * fs AN EXAMPLE OF THIS TYPE OF MESSAGE IS: 
"HEADER HAS CRC_ERROR''. THE FINAL LEVEL (EXTENDED ERROR REPORT) GIVES 
ADDITIONAL DATA CONCERNING THE ERROR, SUCH AS REGISTER CONTENTS. 


TO INHIBIT SOME OR ALL_ERROR MESSAGES, USE THE FLAGS DESCRIBED IN SECTION 
4.8. THE INHIBIT-EXTENDED-ERROR-REPORT pes 


BOTH Cc 
FINALLY, THE INHIBIT-ERROR-REPORT FLAG (ERD 
INHIBITS ALL TYPEOUTS. 


TABLE OF ERROR NUMBERS 
ERROR DESCRIPTION 


CANNOT INITIALIZE’ bz 
REPLY MESSAGE FROM TERM. WAS NOT AN ENQ 
REPLY FROM TERM. WAS NOT EXPECTED TYPE OF CONTROL MESSAGE 
TERM. ADDRESS IN RESPONSE WAS NOT COORECT 
RESPONSE HAD CRC ERROR IN THE HEADER 
TRANSMIT ERROR 


DZ TRAN 
4 Rss! ERROR 
SSAGE TO TERMINAL WAS NOT ACK*ED 
ERROR O OCCURRED WHILE ee DZ 
D ING TRANSMISSION 


ERROR OCCURRED DUR 

DDCMP STRT MESSAGE DID NOT GET A STACK 
ERROR DURING RECEPTION 

oy WHILE WAITING FOR RESPONSE 


SEE 03 

MESSAGE DATA HAD CRC ERROR 

ERROR OCCURRED DURING SELFTEST (TEST #1) 
ERROR OCCURRED DURING LOOPBACK (TEST #2) 
ERROR IN RECEIVED DATA 
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SELFTEST RESPONSE IN ERROR (NOT RECOGNIZED) 
TERMINAL MEMORY ER 
TERMINAL CONTROL=ROM ERROR 


RESTRICTIONS 

THIS DIAGNOSTIC DOES NOT ATTEMPT TO TEST THE DZ11. IF A LARGE NUMBER OF 
COMM ERRORS OCCUR, OR IF ATTEMPTS TO SEND OR RECEIVE DATA TO AND FROM THE 
TERMINAL FAIL; USE THE SPECIFIC DZ11 DIAGNOSTICS TO VERIFY THE DZ11. 


MISCELLANEOUS 

PLEASE REPORT ALL PROGRAM PROBLEMS VIA THE AIDS REPORTING SYSTEM. REFER 
ALL COMMENTS REGARDING DOCUMENTATION TO DIAGNOSTIC ENGINEERING TERMINAL 
GROUP IN MAYNARD, MASS. 


TEST DESCRIPTIONS 
MICRODI 


UT UPON COMMAND FROM’ THE HO 
ViKD. DESCRIPTION OF THE TEST IS Mea te TES I 
MEMORY , 
REQUEST RESULTS OF TEST. I 
DISPLAYED ON THE LAST at OF THE SCREEN. RS AR 
CODED ERROR REPORT FOR THE HOST COMPUTER AND THE. REMAINDER OF THE LINE IS 
AN ENGLISH DESCRIPTION OF THE ERROR STATUS. 


LOOPBACK TEST A. 
TERMINAL 


E IS TAKEN OUT LOOPBACK 
SEQUENCE. THE CRC + eel ARE VALIDATED FOR BOTH THE MESSAGE 
THE MESSAGE DAT THE DATA IS THEN CHECKED, BYTE BY BYTE. 
THERE. > es POSSIBLE ERRORS DETECTED: NO TERMINAL RESPONSE, BAD 


INTERPRETATION OF ANY ERROR MESSAGES REQUIRES SOME EDUCATED GUESSWORK 
BECAUSE OF THE NUMBER COMPONENTS IN THE COMMUNICATION LINK. 
INTERMITTENT ERRORS WOULD GENERALLY INDICATE LINE PROBLEMS UNLESS THE 
LINE IS PHYSICALLY SHORT GR THE ENVIRONMENT IS RELATIVELY NOISE FREE. IF 
OF TH CONDITIONS IS THE CASE OR IF THE ERROR IS NOT 
THE TERMINAL 
£, RUN THE TE 
WILL S$ THER THE TERMINAL IS COMPLETELY ‘DEAD 
THE PORTIONS OF THE COMMUNI CATT ON IN MRENTIOMeD ABOVE ARE BROKEN. 


THERE ARE TWO DATA PATTERNS AVAILABLE FOR LOOPBACK: ALL ZERO'S 
ALTERNATING 1/0 BITS (I.E., BYTES OF 352: 125.252.125....). THE 2 
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SEQ 0014 
PAGE 14 


PATTERN IS_ NOISE=SUSCEPTIBLE. HOWEVER THE ALTERNATING BITS _ PATTERN 
aT Re THE DATA PATHS BETTER. SECTION 4.0 SPECIFIES HOW TO SELECT THE 
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S 
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SEQ 0015 
PAGE 15 


MULTIPLE UNITS 
MULTIPLE UUT'S 


SWITCH OPTIONS 
SWITCH OPTIONS 
SWITCHES 
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673 000000' -PRINT ;SPMAC: VERSION 1.1 


E_2 
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002000 .=2000 
HEADER = VT62 ACCEPTANCE TEST 
POINTER ALL 
BGNMOD HEAD 
HEADER (CZD2C,.B.,0,0,0,0 


eASCII /C/ 
eASCII /2/ 


LSCLEAN 


704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
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724 002110 BGNMOD GLOB 
725 


SA IIIS TORII IICISIOIIOISIOIITIIOI IO TI TT TT TOI TOT TTT 
GLOBAL EQUATES * 


. 
IR IK KK EERE RIKER ERK KR 


EQUALS 


VT62 DIAGNOSTIC EQUATES 


START OF HEADER (DDCMP) 
> ACKNOWLEDGE 
NEGATIVE ACKNOWLEDGE *’ 


ENQUIRY va 
START ee 
:START ACKNOWLEDGE Rs 

> SYNCHRONIZATION CHARACTER 
DATA LINK ESCAPE. 


sl 
;PARITY BIT 
:NO. OF TESTS 
OFFSETS: RECEIVER CSR 
: RECEIVER BUFFER REG. 
: TRANSMITTER CSR 
XMTBUF =6 ; TRANSMITTER BUFFER REG. 


HARDWARE REGISTER BIT DEFINITIONS 
MASCLR=20 MASTER CLEAR 
MS CNEN=40 :MASTER_SCAN E 


NABLE 
RX INTE=100 RECEIVE INTERRUPT ENABLE 
TXINTE=40000 ; TRANSMIT INTERRUPT ENABLE 
INVDAT=100000 ; INVALID DATA 

RENABL=10000 ;RECEIVE ENABLE 

LINEMK= SLINE BITS MASK 

HYBYTE=177400 MASK FOR HIGH BYTE OF A WORD 
LOBYTE=377 :MASK FOR LOW BYTE OF A WORD 


SEQ 0018 
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LRERRARRR REE RRR EEE RRR he 
GLOBAL DATA . 

I TISII TTT TELE LEE ELE 

3FLAG_TO INDICATE IF R5 STACK IS SET UP 

SCRATCH LOCATIONS 


;TEST ABORT FLAG 
; TIMEOUT CIMT (IN 100 MICROSEC. INCREMENTS) 
:SHORT TIMEOUT LIMIT (APPROX. 20 MICROSEC. INCREM. ) 
SLIMIT ON DEVICE INITIALIZATION ATTEMPTS 
; INPUT ERROR 
[OUTPUT ERROR 
;END_OF MESSAGES FLAG 
‘TOCTCAL oe NUMBER 
ZEX PECT_INPUT FLAG 
;OUTPUT MESSAGE POINTER AND SIZE 
: INPUT MESSAGE POINTER AND SIZE 
OUTPUT BUFFER POINTER AND SIZE 


; INPUT BUFFER POINTER AND SIZE 


ONCOCOO 
=i 


COOOCCOCOCOCO0O0O-900> 


44 $4 MESSAGE AREA POINTER 
MPORARY MESSAGE POINTER AND SIZE 
‘USED FOR INITIALIZATION OF OUTPUT ROUTINES 
;GENERAL BUFFER AREA POINTER AND SIZE 


MESSAGE NUMBER (DDCMP) 
PRESENT UNIT PTABLE DATA 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


;DEVICE PRIORITY 
:MASKS FOR LINE SELECTION BITS (D211) 


Mm—FfN- Oo 


met 
ooo 
oo 


052126 031066 042054 - : /VT62.D211/ 
051066 ASCIZ  /VT62,D211 


030532 
DEVREG 4,17,DZREG,DZMSK eit 
000001 .wORD 1 


00 00 00 G0 00 Co 
— 3 — 5 J = 
UEWR-O 
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816 002250 000017 
817 002252 000004 
818 002254 000004 


— SEQ 0020 
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SEQ 0021 


FARRAR AREER AREER EREEREERERERAEKREEKERERE REE 


GLOBAL TEXT . 


: eneeqnnnseeesneseeqqnnceeeqeesqqqacanseqqnanse 
MSGOO: .ASCIZ /CAN NOT INITIALIZE COMM DEVICE/ 
MSGO1: .ASCIZ /REPLY WAS NOT AN ENQ/ 
MSGO2: .ASCIZ /INCORRECT REPLY TYPE/ 


MSGO5: .ASCIZ /CARRIER NOT DETECTED AFTER 10MSEC/ 


RRGR FRR BRA RGRSR 


OWNwLt ££ 


oO 


MSG42: 
MSGO3: .ASCIZ /REPLY HAS INCORRECT STATION ADDRESS/ 


MSG41: 
MSGO4: .ASCIZ /HEADER HAS CRC ERROR/ 


MSG10: .ASCIZ /ERROR DURING KEYBOARD TEST ** END OF REPORT **/ 


® 


Oo-ON0Of ——runvir 


-ASCIZ /BAD RESPONSE FROM KEYBOARD/ 


Oonr 
MW 


MSG12: .ASCIZ /TOO MANY CHARACTERS SENT FROM KEYBOARD/ 


RRRRRK RKOGRR 
NUE WO NVMWMMOOT 


NON S 
ViwMn WN 
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MSG20: .ASCIZ /TRANSMIT ERROR: NO TRANSMIT INTERRUPTS/ 


/RECEPTION ERROR/ 


/NO ACK RECEIVED AFTER TRANSMISSION/ 


ANON SNM 


04 
04 
05 
02 
04 
04 

06 05 

05 

04 

04 

04 

05 

04 

04 

04 

0 


6 

4 

1 

1 

750 

3 
051 

2 

0 
020 


ZERROR WHILE INITIALIZING COMM DEVICE/ 


NAN NAH HNO NS 
wn So 
=—on— 


NS 

& = 
—Mmonorn 
—NVIWIO 


7ERROR DURING COMM DEVICE TRANSMIT/ 


ona Oo 


S 


/NO STACK IN RESPONSE TO STRT/ 


SSSBSRSR 
Mmrnrmnrno—r 
ON VWMIONMS £O-wWw 


WONAUSWN oO 


ERROR DURING COMM DEVICE RECEIVE/ 


89 


0000 


/CAN'T GET CLEAR TO SEND/ 


/TIME OUT: NO CHARACTERS FROM TERMINAL / 


Oo 
ON 
o-=—N% 


FRRR 
NSH SONS 


MSG32: .ASCIZ /7!ME OUT: MESSAGE FROM TERMINAL INCOMPLETE/ 


ow WIN -OUW OO 


=—MOon 


- 
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051505 
043040 


o 

Or 
Mm 
Ww 
So 
N 


-ASCIZ /DATA CRC ERROR/ 


eASCIZ /NOISE PATTERN SUBTEST/ 


MmrNM NL CO--— 


S-NOVEW MO UO—u 


»ASCIZ /ERROR DURING SELFTEST/ 


— es 


RG 22S SPP SF SRV 
3 


VIPIWWUIROWW 
NO WN 


«ASCIZ /ERROR DURING LOOPBACK/ 


— oo 
— 4 
Noe 


-ASCIZ /DATA ERROR/ 
«ASCIZ /ILLEGAL SELF TEST RESPONSE/ 


RRRGREGSSRSS 
cS SO—NMNNNUIN——fPon 
MONM—NMOO —NoNnoNoNnoNnofory 
WUIWEN AWE 


wu 


0 
0 
04 


«ASCII /MEMORY ERROR TYPE / 


mM —M—ONO 
SON NEESN'NDRR 


-BYTE 0,0 
-ASCII /M = BANK #/ 


-BYTE 0,0 

-EVEN 

»ASCIZ /CROM ERROR/ 
-EVEN 


-BYTE ENQ 
-BYTE STRT 
“BVTE 300 
-BYTE 0 
STRTSA: “BYTE 0 
STRTC: . WORD 0 


Iti ii iii iii iii iii iit iti ti iii titi titi itt) 
: GLOBAL ERROR REPORT . 
SiR ge Or ~ sa teeta in Onsen 
BGNMSG AREAOO 
PRINTX oF ORMOO, ILIMIT 
176220 MOV 


ILIMIT ,~(SP) 
003726 a - 


ORMOO, = (SP) 
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987 #2,-(SP) 
988 SP,RO 
990 

991 ENDMSG 

92 


993 
: .ASCIZ /ZAAFTER %06%A ATTEMPTSZN/ 


BGNMSG 
ENDMSG 


BGNMSG AREA02 
PRINTX #FORMO2,A024,A02B 


BESS SS SSSSSES332 


CSPNTX 
#10,SP 


C$MSG 


Ssoosooecooeo 
2335555554 
WOONOULSWN—O 


0 
: 0 
: .ASCIZ /ZARECEIVED %03%A == EXPECTED %03%N/ 


SSELSSRSSLSS 


AREA03 
#FORMO2, TEMP, SCRTCH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SooooO 


SCRTCH,~(SP) 
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AREAG1: 
AREAG:: 
PRINTX #FORMO4 ,AO4RC ,A0GEX 


4 


A04EX ,=(SP) 
A04 


SSR 


#10,SP 


MVIViy 
MFWh—O O00 


C$MSG 


BERS S SSE REREE 


| vi“ ya mMmno-a-e = 
SSVENVSESSEASENRNGROS 


0 ‘ 
: 0. 
ORMO4: .ASCIZ /%ARECEIVED %06%A == EXPECTED %06%N/ 


SSSSE35S 


REREEEe 
2 


Nm 
— 
Nm 


«EVEN 


BGNMSG AREA11 
PRINTX #FORMO4 ,KRC ,KEX 


$8 
3 


at 3 3 3 oh i 
32% 

MMrwnNny 

KEXSS 


SESESERERES 


KEX,~(SP) 


eeee 


0 

0 

BGNMSG AREA21 
ENDMSG 


BGNMSG AREA22 
ENDMSG 


BGNMSG AREA23 


LET TEMP2 .= LOGDFV 
016767 175650 000064 LOGDEV, TEMP2 
IF TEMP2 LT #0 THEN 
005767 000060 TEMP2 
50000$ 


002002 
LET TEMP2 := #0 
005067 TEMP2 
ENDIF 


076 
1 
079 
080 
082 
084 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 


ek ed ee ed ed od 0 ad ed _ 


VERRSS 
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3 
2 
x 


LET TEMP2 := TEMP2 + #1 
000046 TEMP2 
PRINTX #FORM23,TEMP2 


— 


et St eS 2 ss SS 2 ot 2 


WRASIBVRURUVWIS Va axacasseleeRares 
SRamReOs 


Dt 


PRINTX #FORMGO 
#FORM4O, (SP) 
#1,-(SP5 
RO 


WA 
1A 
NM 


BOBS S SSeS EEE EE 
# 


ENDMSG 


BREESE 


TEMP2: 0 
044526 FORM23: .ASCIZ /%ADEVICE: %D3%N/ 
042045 


FORM40: .ASCIZ /%A ween END OF ERROR REPORT *****2N/ 


025052 


epeeptesenents 


BGNMSG AREA26 
PRINTX #FORM26,RDONE 


, 


Saas 


ENDMSG 
L10011: ‘ 


052502 : 4A / F : 

o21260 SCIZ /%ABUFFER CONTENTS: %06%N/ 
052116 

033117 


_~_— 3 
Oor 


SR 


~EVEN 

BGNMSG AREA30 
PUSH R1 

LET R1 := #DZREG 


R1,~=(SP) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


— SS St 2 St SS SS SS Ss Ss SS SS Ss Ss SS SH SS 


KUNIS SSHVEGREBLESBIKGE 


SRERE 


’ 
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002254 #OZREG,R1 
PRINTX #FORM30,RCVCSR(R1) 
RCVCSR(R1),-(SP) 
#F ORM30, - (SP) 
#2,-(SP5 
P,RO 


’ 


vi 
uw 


900000 
004666 


RISBBVE 


#6, SP 

RCVBUF (R1),-(SP) 
#FRM3OA, -(SP) 
#2,-(SP 

CSPNTX 
#6,SP 


oO 
WwW 


PRINTX #FRM30A,RCVBUF (R1) 


eh MLO Lele] 
R 


PRINTX #FRM30B,XMTCSR(R1) 
XMTCSR(R1) ,=(SP) 
#F RMSOB P) 


-(§ 
#2,-(SPS 
“RO 
CSPNTX 
PRINTX #FRM30C, XMTBUF (R17? F 
XMTBUF (R1),-(SP) 
RM30C ,=(SP) 


i i kk kd ad td Sh 8 2 td od td SI 
ed ed eed od 


a a ak tk td od dd = 28 2 2 6 ot 2 I 2 2 ss tt oS 


=-O0C0Oo 
R 


POP R1 
ENDMSG 


(SP)+,R1 


L10012: 
E CSMSG 


R 


: .ASCIZ /%ADZ RCSR: %06%N/ 


Wu 
sae 


Wwe NWI 


: .ASCIZ /%ADZ RBUFF: %06%N/ 


64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 

1 

2 

3 


9 
9 
9 


: .ASCIZ /%ADZ TCSR: %06%N/ 


No —MO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BELEFR 


: .ASCIZ /%ADZ TRUFF: %06%N/ 


WRAUAR ARRRAA 


KERF 


- EVEN 
Bens SGM, 

012746 ORM60.- 
012746 000001 2 wees (SP) 
010600 3° 


104015 
062706 


Saserasss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N 
=_d 
oS 
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ENDMSG 


_ 
CONOULSWR— 


L10013: 
MT 
O¢5316 FORM60: .ASCIZ /%ACAN'T GET INTO LOOPBACK%N/ : 


041501 


= 
oO 


.EVEN 
BGNMSG AREA61 
PRINTX #FORM61 
#FORM61,=(SP) 
#1,-(SPS 
P’R 


Ld 


Nonronofenepererenoery 


VRRRWVLS 


#4 ,SP 

LET TEMP2 := LOGDEV ; 

016767 177254 LOGDEV, TEMP2 
005767 IF TEMP2 LT #0 THEN 

ETA TEMP2 


6001 
LET TEMP2 := #0 4 . 
005067 TEMP2 


ENDIF ; 
LET TEMP2 := TEMP2 + #1 a 
005267 177236 TEMP2 
PRINTX #FORM23, TEMP2 
016746 177232 TEMP2,-(SP) 
004 356 #F ORM23, = ( 
060002 #2.5(SP) 


-RO 
CSPNTX 
000006 #6,SP 


ENDMSG 
L10014: . 


NMnronononofenofonory 
ARAN AS VS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


horrors 
SOBLE 


C$MSG 
040503 -ASCIZ /%ACAN'T GET OUT OF LOOPBACK%N/ ' 
042507 
020124 
047517 
022513 


Ww 
Nm 


EVEN 
PRINTS. aFDARS2.AS2A,A528 

000074 2 : - 

goers A52B,-(SP) 


00528 py int SP) 


mronrr 
SHORE RRS 
WSONOAUIEW 


000010 
ENDMSG 


wo HM Ss Sh Ss Ot ss DP DY SS SS SS 


FERAES 


054105 042520 FORMS2: .ASCIZ /%AEXPECTED: %03%A -RECEIVED: %03%N/ 
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1267 52103 042105 
7445 022463 

042522 
042105 
022463 


Se 


EVE 
0 
0 


a Se Pe 


SISISARAN= 


BGNMSG AREA70 
ENDMSG 


ronrononononoronoery 


~ 


L10016: 
EMT 


io) 
_ 


BGNMSG AREA71 
ENDMSG 


QRARAD 


-BLKW 810. 
TMPBUF : 
-BLKW 270. 
-BLKW 100 
SSTACK: sSTACK FOR SUBROUTINE LINKAGE. 


ENDMOD 


VV 


Sy 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
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BGNMOD TABLE 


FARE RRA AERA RARER REE EREREREEEEEEEE RE REERERRERREKEEEREK 


DEFAULT HARDWARE P=TABLE AND SOFTWARE P=TABLE * 
ITIIIITI TITEL IT TLE TERETE TELE LLP TTT T ETT TLE 
BGNHW 
160010 
320 
640 
ed 
ENDHW 
BGNSW 


L10020=L $HwW/2 


IOs 
vS 


L10021=L$SwW/2 


SRSRGREN SSE TeSE 


elelelelelelelelelelelelelealele) 
ed ed a a cad ae a ae a ce ce ed ct a ee 
ed ad al cel ch at el eo ae cd cel cael ca cal ce el 


YVYNYNYNY SN 


000010 
PATTERN:000°01 
STWAIT: 20000 

ENDSW 


PENSSR ELE 


110021: 


FRR RRR ERE ERE ERE AREER REE ERE ERE REE EE 


DISPATCH TABLE . 


ISTITITITI ITT TITTTITITITITITTT TTT LTTE TTTiTiTT iii Titi ie 


DISPATCH TSTS 


NWWNINWWINWNNWWS 
a eh od ah a ch ed ec ec ced 
OONAUSWN—O 


000002 
017466 
020516 


8 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RRS 
n= 


ENDMOD 
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BGNMOD CODE 


DIOS OID IOIISISIIOISIOIOIOIOIIIIOISIIOI IOI IOI IIE 

[STUB AREAS FOR SUPERVISOR COMPATIBILITY * 

OOS ISISIOISIISIIISIIOI IOI IOIDIIIIISIO IOUT III IOI OE 
BGNRPT 

ENDRPT 


BOIS SSS TRAC SS ates ua 


L10022: 
EMT 


BGNAU 
ENDAU 


NNNN 


BGNDU 
ENDDU 


MMM MN 
AO RRRR 


NNNN 


L10024: 
EMT 


nN 
oO 


FERRER RRR EERE HERA AREER KEE EREE 


: INITIALIZE CODING ® 

SURE ERE EERE ERE RRA ERER REE 
BGNINIT 

[SAVE R1 


PUSH R1 
010146 MOV R1,-(SP) 


ICHECK START EVENT FLAG TO SEE IF WE GOT HERE BECAUSE OF A START 
Ot READEF #EF.START 


RAR 


#EF START RO 
CSREFG 


WWWAW 
Wan 
won 


SIF A START, THEN... 
IF .ERROR THEN 


INITIALIZE THE SUBROUTINE LINKAGE STACK 


LET RS := #SSTACK 
012705 011670 #SSTACK RS 
LET RSSTCK := RSSTCK + #1 
005267 170136 a a RSSTCK 
000414 50003$ 
50002$: 


SERSRESES 


& 


SSS 
Wr-o”0 


IF NOT START THEN.. 


i CHE CK FOR RESTART : 
[UPDATE LOGICAL Di'/] . E ENTRY POINTER, 
;BUT DON'T EXCEED THE PECIFIED 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


gee 
CONAN 
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1379 
READEF #EF .RESTART 
000037 MOV = WEF .RESTART,,RO 
C$REFG 
IF .NO.ERROR THEN 
| 500048 
LET LOGDEV := LOGDEV + #1 
170146 LOGDEV 
IF LOGDEV EQ LSUNIT THEN 
170142 170014 LOGDEV,L$UNIT 
BNE 50005$ 
LET LOGDEV := #0 
ENDIF 
ENDIF 


ENDIF 


SEQ 0032 


ae 


SESERERES 


170132 LOGDEV 


WAG 
eo] 
wns 


50005$: 
50004$: 
, 50003$: 
: CHECK FOR NEW PASS... IF IT IS, FORCE LOGICAL UNIT TO ZERO. 
READEF #EF .NEW 


Ww 
agaee 
NOU 


ek at tk et nt 8 Sh 8d 2 1 I 1 I ss 
o 
oo 


$ 


IF .ERROR THEN 
LET LOGDEV := #0 
ENDIF 


170116 


[END OF START CODE 
ZFORCE THE COMM DEVICE TO BE INITIALIZED 


LET INIT := #0 
LET ABORT := #0 


[SET UP THE INPUT BUFFERS QUEUE 


TR := #R T 
012767 015674 cele sa #RQUE T ,RQUE 
LET RQUEUE := QUE 
016767 003630 RQUE , RQUE UE 
LET RBQUE := #RBQUET 
012767 015712 #RBQUE T , RBQUE 
LET R1 := RBQUE 
016701 003632 RBQUE ,R1 
012767 005310 LET SCRICH := #TEMBUF , 
g & 
areeat EMBUF ,SCRTCH 


LET (F7)+ := SCRICH 
016721 170022 SCRICH, (R1)+ 


eeeececeeeeecs 
FERRER URE REES 
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012070 LET SCRTCH := SCRTCH + #270. 

012070 062767 000416 170014 #270. ,SCRTCH 
§1506 020127 015716 sgpies. oe ah echatrey 1, #RBQUE 
012102 003770 SO0rE . 


‘GET THE PTABLE ENTRY FOR THIS LOGICAL DEVICE 
REPEAT 
LET R1 := R1 + #1 


R1 
GPHARD LOGDEV,SCRTCH 
170024 MOV LOGDEV,RO 
C$GPHRD 


167772 5 RO,SCRTCH 
IF UNIT HAS BEEN DROPPED, UPDATE POINTERS ETC. AND TRY AGAIN 


7 IF .NO.ERROR THEN 
103411 - 50011$ 
L LOGDEV := LOGDEV + #1 
005267 170010 - Lee $ LOGDEV 
LOGDEV EQ LSUNIT THEN 
026767 170004 167656 LOGDEV,LSUNIT 
001002 50012$ 


LET LOGDEV := 
005067 167774 LOGDEV 


gues 50012$ 
LET R1 := #0 { 
005001 R1 


ENDIF 
UNTIL R1 NE #0 epsar' 
005701 st RT 
001756 BEQ 500108 


[NOW GET THE PTABLE DATA FROM THE SUPERVISOR AND STORE WITHIN THE 
SDIAGNOSTIC PROGRAM 


‘ LET R1 := #PTABLE 
012701 002200 #PT 
REPEAT mE 


LET (R1) := @SCRTCH 

017711 167732 ET RI , 2 @SCRTICH, (R1) 
LET 7s RI + @ 

062701 000002 BT scat > #2,R1 
L SCRICH := SFRICH + # : 

062767 000002 167720 #2,SCRICH 


UNTIL R1 EQ PTE 
020127 002212 . ps) R1, #PTEND 
001 366 50013$ 


leleleleleleleioe) 
nb nb aod ab aah ecb an ad 


ronononononefrery 
a ed ed ed eed ed ed ed 
RUKRRRRK 


Mrmonronronrer 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


3 a a 
POMPINSNMONININ NIN NN NNN NoNoNof~y 
a 


BRERRARRRR 


lelelelelelelelelelelelele) 
a a ad ad aed eed oad ed ea ee ed ed 
NOMIN MN NoNoNMNNoNoNoNy 
3 SS SS ss SS SS HS 

VMI 


[GET THE LINE NUMBER AND ISOLATE iT FOR FUTURE USE 
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LET R1 := APTABLE + #6 
012701 902200 #PTABLE ,R1 
062701 00006 #6,R1 
LET R1 := (R1) 
011101 (R1),R1 
LET R1 := R17 CLR.BY #177770 
042701 177770 #177770,R1 
LET R1 := R17 SHIFT #1 
006301 R1 
LET SLINE := LINMSK(R1) 
016167 002214 LINMSK(R1) , $L INE 


=RESTORE R1 AND EXIT INIT CODE 


: POP R1 
012601 (SP)+,R1 


ENDINIT 
L10025: ont 
VMSG: -ASCIZ /%NZAVT62 ACCEPTANCE TEST -- VERSION 10 TERMINALS%ZN/ 


rab 
Sk 


38 


CSINIT 


RRAGLARRS 
WI = MI VIWIO WO 


051514 
GOO 
012322 -EVEN 


epi irri iii i iri titi i tii tai t iti iii tit) 
: CLEAN-UP CODING * 
Itt iiii titi titi teri tiiiiii iii iti iit iti it) 


BGNCLN 
“MAKE SURE DEVICE IS SHUT DOWN 


PUSH R1 
010146 R1,-(SP) 
LET R1 := PTABLE 
016701 167650 PTABLE .R1 
LET XMTCSR(R1) := #0 
005061 000004 XMTCSR(R1) 
LET RCVCSR(R1) := RCVCSR(R1) SET.BY #MASCLR 
052761 000020 #MASCLR RCVCSR(R 
POP R1 
012601 (3P)+,R1 


[UPDATE PASS COUNT 


LET PASCNT := PASCNT + #1 
167562 PASCNT 


TEXIT CLEAN-UP CODE 


DV PV PV PV PV PV SV DSTA SV SV STAD STA TT AAT TAI III OTT 
UNSSBSRVRRRAVVSSarnoaneuwwoo 


SBIKAK 


XEFFRX 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 


AnEWNMO 


x 
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_ SEQ 0035 
547 : 
1 


4 ENDCLN 
4, 


8 

.) L10026: 

50 104012 EMT CSCLEAN 
5 ENDMOD 


i 

15 
15 
15 
15 





ASSEMBLY ROUTINES 


CZDZCB.P11 


155 


VIIAIVIVIVIVIT 
VMVIWVIVT 


SERERES 


See 


MMNMIVIMIMIVMII 
BIVSARANISS 


SSSSSERSSE ER eS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MMMM 
GERRA 


SSSSsSsys 


S 


012352 


21-NOV=7; 


167574 


177776 
167510 


000001 
167500 
167474 


167510 
000001 


177776 


Kk 3 
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GSUB 


SEERA 


GLOBAL SUBROUTINES * 


eT eee 


Mocccaasseecenccecassststeccectcstarseeetrecectcseeeeesercecaaaaes! 
ROUTINE TO PROCESS TERMINAL MESSAGES FOR ALL TESTS 
RETURNS POINTER 1, MESSAGE (’OUTMSG'’) AND ITS SIZE 

IN BYTES (OUTSIZ' 


SIZE MAY BE ANY NUMBER OF BYTES 


SETS A_FLAG f * codentihe IF RESPONSE OTHER THAN ‘‘ACK'' IS 
TO BE EXPECTE 


SETS ANOTHER FLAG ("EOMSG'') IF THIS IS THE LAST MESSAGE 


THEFEEEFESESEEEEEEEEEEEEEEEEEESEEEEEEEE EEE ES EEESEEEESEEEEEEEEEE EEE 


ROUTINE MSG 303.2.14] 
MSG: 


+t e+e errr ere + 


DECLARE LOCALS 
LOCAL <A> 
ALLOCATE 


'GET MESSAGE POINTER 


_ LET A(R4) := @MSGA° 
177776 


ZIF MESSAGE POINTER IS ODD, 
SET END_OF_MESSAGE INDICATOR 


LET SCRTCH := A(R4) AND #1 
167514 


IF SCRTCH NE #0 THEN 


LET EOMSG := EOMSG + #1 
LET A(R4) := A(R4) CLR.BY #1 
ENDIF 


177776 


iF MESSAGE _POINTER IS NEGATIVE, 
3SET EXPECT_INPUT INDICATOR 


. IF AC(R4) LT #0 THEN 


@MSGAP , A(R4) 


A(R4) ,SCRTCH 
SCRTCH,=(SP) 


#1, (SP) 
(SP)+,SCRTCH 
SCRTCH 
50002$ 

EOMSG 

#1, A(R4) 
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012440 LET EXPINP := EXPINP + #1 
0 005267 167474 EXPINP 
LET A(R4) := A(R4) CLR.BY #100000 
012444 042764 100000 177776 #100000,A(R4) 
TOTHERWISE, CLEAR EXPECT_INPUT 


012452 G ELSE 


Ss 


RENO HT.T 


—w 


LET EXPINP := #0 
ENDIF 


OWOONAUSWIRO 


oO 
= 


167460 


:SET MESSAGE_ADDRESS AND 
:MESSAGE _S1ZE 


. LET OUTMSG := A(R4) 
016467 177776 167454 | A(R4) ,OUTMSG 
LET MSGAP := MSGAP + #2 
062767 000002 167466 #2 ,MSGAP 
LET OUTMSG+2 := @MSGAP 
012474 017767 167462 167442 @MSGAP , OUTMSG+2 


ZUPDATE MESSAGE_AREA_POINTER 
012502 ; LET MSGAP := MSGAP + aMSGAP 


167454 167452 
LET MSGAP := MSGAP + #2 
000002 167444 


USWN— 


GERRESRERRE 


ke es a dd a td 0g ot 2 0 tt 6 ot ot 
oO 
Ww 
_ 


BER 


TIF MESSAGE_AREA POINTER IS ODD 
ADD 1 TO MAKE IT EVEN 


. LET SCRTCH := MSGAP AND #1 
016767 167440 MSGAP,, SCRTCH 
167362 MOV SCRICH.=(SP) 


000001 (SP 
167352 (SP)+,SCRTCH 
IF SCRTCH NE #0 THEN 
167346 SCRTCH 
BEQ 50005$ 


LET MSGAP := MSGAP + #1 
167410 MSGAP 
ENDIF 


ENDRTN 


BWAAAAAAA 
MAMA 
SNMP NoNonyngo 


& 


R4,SP 
(SP)+,R4 
PC 
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EttttttFFFt Et ttt ttt ttt Tr FF Ft TTF FFT TTF tt tT FF4 ETT FFF tts ttt soot tte 
: ROUTINE TO HANDLE OUTPUT OF MESSAGES TO THE TERMINAL + 
: UNDER TEST. MESSAGES MAY BE OF AN TH SINCE + 
; ROUTINES USED BY THIS ROUTINE SPLIT THe MESSAGES INTO + 
: BUFFERS OF APPROPRIATE LENGTH FOR DDCMP. + 
TEFEFEFEF FFE FF FFF FFF FF FF FFF FF FFF FFF FF FE FFF F EFF FFF ttt testes ett etes 


ROUTINE TEROUT 3€3.2.20] 
TEROUT: 
IF INIT EQ #0 THEN 
TST INIT 
BNE 50002$ 
JSR PC,XSTRT 
BCC 50003$ 


SEC 
BR 


CALL XSTRT 
IF .ERROR THEN 
RETURN ERROR 


3 


% 
— 50001$ 


LET MSGNO := 
167370 MSGNO 
’ LET RMSGNO := 
167366 RMSGNO 
ENDIF 


BCESPREERS 


g 


g 


012610 
DINITIALIZE THE BUFFER ROUTINES [3.2.20.4] 


012610 LET INITMA := OUTMSG 
0 016767 167326 167346 OUTMSG, INI TMA 
LET SCRICH := MOUTMSG + #2 
012767 002142 167266 . ; ref SORT 
062767 000002 167260 #2.S 
LET INITMS := @SCRTICH 
017767 167254 167326 @SCRTCH, INI TMS 
; BUFFER #1,BAPNT 
LET BAPNT := #TMPBUF 
010434 167322 #TMPBUF ,BAPNT 
LET BASIZE := #266. ; 
000412 167316 #266. ,BASIZE 


[GET A BUFFER OF THE MESSAGE 
CALL GETOB OUT <OUTBUF,OUTSIZ> 


1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 

698 


SELSaRaTces 


N 
=_— 


| #2*2,.R5 
000325 (RSS OUTBUF 
2, 
167260 (R5)+*,OUTSIZ 
: PERFORM THE FOLLOWING LOOP WHIL 
AND ABORT ARE CLEAR AND OUTS! 
ifs GREATER THAN Oo 


012674 WHILE OUTSIZ GT #0 AND ABORT EQ #0 DO 


E 
2 


ak ak a ak dk ed at ho a 3 8 a 


IIVIYAIYAYY 
OBNRAARW=O 
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012674 
012674 005767 167254 
012700 003442 
012702 00576? 167210 
012706 001037 


w— 


‘ADD PROTOCOL ENVELOPE AND TRANSMIT 
012710 “ses : CALL PROBUF IN <OUTBUF,OUTSIZ> OUT <xXBUFFER,XSIZE> 


ee a dd ed od 


sone 


SP)+,R5 . 
(R5) +, XBUFFER 
012567 2 (R5)+,XSIZE 
CALL XMIT 
012744 004767 PC .XMIT 


:1F TRANSMIT ERROR, REPORT IT AND SET ERRXMT 


012750 IF .ERROR THEN 
ERRHRD 20,MSG20 3€3.2.20.10] 


a 
N 


50006$ 
TSERCODE 
20 


MSG20 
RETURN ERROR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 


NNNN 


wi 
COVUMDNOULWN—OO 


ENDIF 


TOI RARARD 


‘GET THE NEXT BUFFER 
: CALL GETOB OUT <OUTBUF ,OUTSIZ> 


ao 
VW 
DONAUSWR = 


162705 
004767 PC ,GETOB 
012567 (R5) + ,OUTBUF 
012567 (R5)+,OUTSIZ 
SEND OF LOOP 
’ ENDDO 


SHEAR 


Se 
&S 


SIF ERROR OCCURRED, DO AN ERROR RETURN 
F ENDRTN 


SRREAT 
S55 (BE 


et ek ke a a 2 a ne 3 OS OS a SI 
JIN o 
Ww 


Ses 
moO 


; TYPE OF MESSAGE EXPECTED 
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1776 
1777 


3 


ee nee 1S dL BOOP eae ALADOARARARLD DD SAD te tal DO deleted tind 


ROUTINE TO SEND A ‘'STRT'' MESSAGE TO THE TERMINAL + 
+ 


A "'STACK'' MUST BE RETURNED BY THE TERMINAL + 
SEFEFFFEFFEFEF FFF FEFEF FFF FE FEF EFF EFF FFF FFE FFS FFF FFF SFE FFt teste e ttt 
ROUTINE XSTRT 3(3.2.20.1] 
DECLARE LOCALS 
LOCAL <A> 


ALLOCATE 


R4,-(SP) 

SP ,R4 

#2,SP 
‘THE DDCMP STRT MESSAGE IS 10 BYTES LONG (INCLUDING CRC) AND IS IN 


3A BUFFER STARTING AT ‘'STRTB'' PUT THIS INFORMATION 
:1N THE TRANSMIT ROUTINE'S POINTERS 


LET XSIZE := #10 
012767 000010 002624 #10, XSIZE 
LET XBUFFER := #STRTB 
012767 003670 002614 #STRTB, XBUF FER 


GET THE TERMINAL ADDRESS AND PUT INTO THE STRT MESSAGE 


LET A(R4) := APTABLE + #5 
002200 177776 MOV on nana A(R4) 
000005 177776 ADD #5 ,A(R4) 

LET STRTSA :B= @A(R4) 
177776 §=170613 MOVB @A(R4) ,STRTSA 


: COMPUTE THE CRC FOR Tne STRT MESSAGE AND PUT IN THE LAST TWO BYTES 
: OF THE BUFFER (‘'STRTC*’) 


CALL CRC IN <XBUFFER,46> OUT <STRTC> 303.2. ag 4 * 7 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BSR OAR Se eo PERE eae aRAeAsS 


bab aad od 
fwnr-o 


000002 
000006 
002554 
004006 
(SP)+,R5 
170564 (R5) +. STRTC 
‘TRANSMIT THE MESSAGE 
CALL XMIT 


0 00 00 00 00 00 C0 G0 00 Co 
coed aad and ead ol 
MR -OCVOONAW 


BBW 


001526 


RRESRE 


SS 3 2 6 ss Ss SP Ss Ss Ss 
DOONAUILRW 


8S 


IF AN ERROR OCCURS, REPORT IT AND EXIT WITH THE ERROR FLAG SET. 
IF .ERROR THEN 


tat 
Go 00 
2S 


BCC 
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1832 013120 ERRHRD 20,MSG20 3€3.2.20.10] 
Se? 104423 TRAP sages 


8 000024 ° 
1835 002712 MSG20 
1836 RETURN ERROR 
1837 000261 
000430 50001$ 


~~ 
ni 
ve] 


ENDIF 


SOTHERWISE, GET THE TERMINAL'S RESPONSE 


CALL RCVE 
004767 003472 PC,RCVE 


IF RECEPTION ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET 


IF .ERROR THEN 
103005 : 500038 
ERRHRD 21,MSG21 :(3.2.20.10] 
104423 T TSERCODE 


000025 . 
002761 ° MSG21 
RETURN ERROR 


000261 
000420 BR 50001$ 
ENDIF 
50003$: 
SOTHERWISE, SET TYPE TO ‘'STACK’’ AND CHECK TO SEE THAT IT WAS THE REPLY 


LET TYPE := #STACK 
012767 000007 177632 MOV ASTACK, TYPE 
CALL CHKREP IN <TYPE> 
010546 MOV RS ,-(SP) 
016745 177624 MOV TYPE ,~(R5) 
004767 001062 JSR PC ,CHKREP 
012605 MOV (SP)+,R5 


:IF REPLY WASN'T A "'STACK'', REPORT THE ERROR AND EXIT WITH THE ERROR FLAG SET 
: IF.ERROR THEN 
103005 B 50004$ 
ERRHRD 25,MSG25 3(3.2.20.10] 
104423 T TSERCODE 


000031 ° 

003153 MSG25 
RETURN ERROR 

000261 


000401 meee BR 50001$ 
50004$: 


aoa ahh 28 S$ 22 3 


RARRAARARLE 


kd 8 od SS dd 
WWWIWWNWNWNWNWWG 
cD aed ed a ced ed od ad ad 


ite 
lelelejlelelelelolelelo) 


al 


seeaeae 
lelelelelelejo) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


— 
S3g 


— 3 3) I — I Ld 
SSSsVVew 
CON AUIS WIR 


FERRERS 


“END OF XSTRT ROUTINE 
013210 ' ENDRIN 


3 — = Ls od = 


: 
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88 


R4,SP 

(SP)+,R4 

PC 
DDSTRY: 0 


RPGS SS 


38 


LEFF EFFFEFE FE FEF EFF F FFF FEF EFF FFF FFF F FF FFF FFF FFF FFF FFF ttt ttt t ttt t tet e tt 

THIS ROUTINE SPLITS A MESSAGE OF ANY LENGTH INTO 

SEGMENTS OF A SIZE SUITABLE FOR TRANSMISSION OVER A DATA 

LINK =~ RETURNS BUFFER ADDRESS, BUFFER SIZE AND END_OF LPESSAGE® 
; (BUFFER SIZE = 0 IS END_OF _MESSA GE) 
leneeeecsoccecooscssooneceseesetesdesaessseseseseesesenesenssorensesees 


013222 ROUTINE GETOB <A,B> 3(3.2.20.5) 
DECLARE LOCALS 
LOCAL <C> 
ALLOCATE 
010446 R4,-(SP) 
010604 SP~R4 
013226 162706 000002 #2°SP 
[LEAVE ENOUGH ROOM FOR A DDCMP HEADER 
013232 ’ LET A(RS) := BAPNT + #10 
013232 016765 166732 000000 BAPNT ,A(R5) 
013240 062765 000010 000000 #10,A(R5) 
SINIT SIZE TO ZERO 


013246 : LET B(RS) := #0 
013246 000002 


BES8oR 3888 


Me MS SM So a 
EWN OVO0ONAUSWR HO 


Mrnon 


4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WDODOODODD0D0000000 


Nm 
wn 


:SCRTCH HAS MAXIMUM DDCMP MESSAGE SIZE 
013252 ; LET SCRTCH := BASIZE - #12 
013252 016767 166714 166632 BASIZE,SCRTCH 
013260 162767 000012 166624 #12,SCRTCH 


:GET A COPY OF THE BUFFER POINTER 


; LET C(R4) := ACRS) 
016564 000000 177776 MOV A(R5) ,C(R4) 


REPEAT LOOP UNTIL MAX SIZE OR END OF DATA 
WHILE B(R5) LT SCRTCH AND INITMS GT #0 DO 
026567 000002 166610 } B(RS) ,SCRTCH 
50003$ 


002017 E : 
005767 166656 TST INI TMS 
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013310 003414 BLE 50003$ 
‘MOVE DATA INTO MESSAGE BUFFER 


LET @C(R4) :B= OINITMA s{3.2.20.5.1 + 2 
117774 166646 177776 MOVB @INITMA,aC (R4) 
LET INITMS := INITMS = #1 :€3.2.20.5.1] 
005367 166642 DEC INI TMS 
LET INITMA := INITMA + #1 
005267 166634 INC INITMA 
LET B(R5) := B(RS) + #1 303.2.20.5.2] 
005265 000002 INC B(R5) 


LET C(R4) := C(R4) + #1 
005264 177776 ; INC C(R4) 
ENDDO 
000755 BR 50002$ 
50003$: 


END OF LOOP 
ENDRTN 


50000$: 
50001$: 


R4,SP 
(SP)+,R4 
PC 


TTF FHFF FFE FF HFEF FFF FFF FEF EFF Ft FFF FFF FFF FFF Ft FFF ttt ett ttt t tees tet 
: ROUTINE TO PROVIDE LINE PROTOCOL HEADER AND CHECKSUMS + 
: CALL WITH DATA AREA ADDRESS AND SIZE (IN BYTES) + 
: RETURN WITH MODIFIED ADDRESS AND SIZE + 

THEEFEFEEEEEEEEFEEEEEEE EEE EEE EEE E EEE EEE EEF FF EEF E EEE EEE E+ ett +++ 


013350 ROUTINE PROBUF <A,B,C,D> 3€3.2.20.6] 
PROBUF : 


PUSH R1 
010146 MOV R1,-(SP) 
PUSH R2 
013352 MOV R2,-(SP) 


=CHANGE POINTER TO INCLUDE DDCMP HEADER 
013354 ; LET R2 := A(RS) = #10 :03.2.20.6.1] 
013354 000000 MoV 
013360 000010 SUB 


SF IRST BYTE IS SOH (START OF HEADER) 
013364 : LET (R2)+ :B= #SOH 
013364 112722 000201 #SOH, (R2)+ 


“NEXT TWO BYTES Gc’ MESSAGE SIZE 


> °) e) 
BS & 
Ww BVO 3 


SRR USRN RRL ttt 
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2000 013370 LET R1 := B(RS) 

2001 016501 000002 B(R5) ,R1 

2002 LET (R2)+ :B= R1 

2003 110122 R1,(R2)+ 
LET R1 := SWAP R1 

000301 R1 
LET (R2) :B= R1 

110172 R1,(R2) 


!SET SELECT BIT 


LET (R2) :B= (R2) SET.BY #200 

152712 000200 #200, (R2) 
LET R2 := R2 + #1 

005202 R2 


[NEXT BYTE IS LAST GOOD RESPONSE 


LET (R2)+ :B= RMSGNO 
116722 166562 MOVB RMSGNO , (R2) + 


NEXT BYTE GETS MESSAGE NUMBER --- POP NUMBER FOR NEXT MESSAGE (IF ANY) 


LET MSGNO := MSGNO + #1 
005267 166554 INC MSGNO 
LET (R2)+ :B= MSGNO 
116722 166550 MOVB MSGNO, (R2) + 


[GET THE TERMINAL ADDRESS FOR THE NEXT HEADER BYTE 


LET R1 := APTABLE + #5 
012701 002200 MO #PTABLE .R1 
062701 000005 #5,R1 

LET (R2)+ :B= (R1) 
111122 (R1),(R2)+ 


:GET HEADER START ADDRESS AND SIZE IN BYTES 

-LET SCRTCH := A(R5S) = #10 
000000 166446 A(RS) ,SCRTCH 
000010 166440 #10.SCRTCH 


LET TEMP := #6 
000006 166434 


Saas ara SBeCeOe 


Bae 


‘COMPUTE HEADER CRC 
CALL CRC IN <SCRTCH,TEMP> OUT <TEMP> :(3.2.20,6.23 


(SP)+,R5 
166404 (R5)+, TEMP 


SPUT CRC INTO BUFFER 
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LET (R2) := TEMP 303.2.20.6.3] 
MOV 


TEMP , (R2) 
[GET ADDRESS OF MESSAGE AND MESSAGE SIZE IN BYTES 


LET SCRTCH := A(R5) 

166370 MOV A(R5) ,SCRTCH 
LET TEMP := B(R5) 

166364 MOV B(R5), TEMP 


SCOMPUTE DATA CRC 
CALL CRC IN <SCRTCH,TEMP> OUT <TEMP> :€3.2.20,6.4] 


P 
(SP)+,R5 
012567 (R5)+, TEMP 


;PUT DATA CRC IN LAST TWO BYTES OF BUFFER 


LET R2 := A(RS) + B(RS) :03.2.20.6.5] 
016502 MO ACRS) ,R2 
066502 


. B(RS) ,R2 
LET (R2)+ :B= TEMP 
116722 TEMP, (R2)+ 
LET TEMP := SWAP TEMP 
000367 TEMP 
LET (R2) :B= TEMP 
116712 TEMP, <R2) 


[RETURN WITH MODIFIED ADDRESS AND SIZE 


. LET D(RS) := B(RS) + #12 
016565 000006 B(RS) ,D(RS) 
062765 000012 000006 #12,D(R5) 


LET C(RS) := A(R5) = #10 

016565 000000 000004 ACR5) ,C(RS) 

162765 000004 #10,C(R5) 
POP R2 

012602 (SP)+,R2 
POP R1 

012601 (SP)+,R1 
ENDRTN 


BRE RR eNeRe 


lelelelelelelelelelelelelelo) 
ad ad ed ca ed ad ed ed ad ed ed ed ed 


aeee 


000207 PC 


artery +++ 
=SSRGRGRESLS 


MMNONNY 


LETTE HHE HEHEHE EHH EEF EHH EEE EEE FEE Hr HEHEHE HEHEHE HEHE HHH HH eH eH Heese 
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ROUTINE TO GET TERMINAL INPUT 


; + 
SHEET EEE EFEFEFEFEFEFEFEFEE EEE EEE EEEFEFEFEFEE EEE EE EEE SEE EE EE 


ROUTINE TERIN <A> 33.2.1] 
TERIN: 


SSAVE R1 
: PUSH R1 

R1,-(SP) 
'GET TERMINAL RESPONSE 


CALL RCVE 
002760 PC .RCVE 


IF RECEIVE ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET 
IF .ERROR THEN 
FRRHRD 40,MSG40,AREA4O 


50002$ 
TSERCODE 
40 


MSG40 
AREA4O 


RESTORE R1 FIRST 
POP R1 
012601 (SP)+,R1 
RETURN ERROR 
000261 
000571 BR 50001$ 


ENDIF 
50002$: 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


F, Dbiethathsinat hatha edna ahead bok ee 
SEWN NONMANNNNNN 2 2 oo 
SSSBVEARUOASBSVRARUVVSSHVARAGRAD B 


IS 


SAGE IS ONLY 10 BYTES, SEE IF IT AN ACK 
IS INCOMPLETE (CLEAR FLAG). 


E 
TO BE AN ACK, BUT RECEPTION 


IF INSIZ EQ #10 THEN 
026727 166264 000010 INSIZ,#10 
50003$ 


001027 
LET A(R5) := #0 

005065 000000 A(R5) 
LET TYPE := #ACK 

012767 000001 177100 MACK, TYPE 
CALL CHKREP IN <TYPE> 

010546 R5,~(SP) 

016745 177072 

004767 000330 

012605 (SP)+,R5 
IF ERROR THEN 

103003 50004$ 

POP R1 
012601 (SP)+,R1 


Rc TURN ERROR 
013732 000261 2 : 
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013734 
36 


014026 


014032 


000546 


016701 
062701 


111167 
012601 
000535 


162705 


004767 
012605 
012567 


016701 
062701 


114167 
000367 
114167 


026767 
001407 


104463 
000051 
002503 
004116 
012601 
000261 
000475 


MACY11 30A(1052) 
21-NOV-78 16:33 


166214 
000004 


166224 


000002 
000006 
166162 
003112 


170144 


166144 
000010 


170126 
170122 
170116 


170114 


170110 


29-DEC-78 


I_ 4 
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ENDIF 


LET R1 := INBUF + 44 


LET RMSGNO :B= (R1) 


POP R1 
RETURN 


ENDIF 


IF RECEIVE OK 
+ COMPUTE EXPECTED CRC 


CALL CRC IN <INBUF ,46> OUT <AQ4EX> 


LET 


LET 
LET 
LET 


LIF THEY AREN'T THE SAME, REPORT THE ERROR, RESTORE R1 AND EXIT 


OK, CHECK THE HEADER CRC 


[GET THE CRC RECEIVED 
R1 := INBUF + #10 


AO4RC :B= -(R1) 
AO4RC := SWAP AO4RC 
AOSRC :B= -(R1) 


+ THE ERROR FLAG SET 


IF AOSEX NE AO4RC THEN 


ERRHRD 41 ,MSG41,AREA41 


POP R1 
RETURN ERROR 


ENDIF 


50004$: 


50003$: 


MOVB 
SWAB 
MOVB 
WITH 


50001$ 


INBUF ,R1 
#4,R1 


(R1) ,RMSGNO 
(SP)+,R1 
50000$ 


#1*2,R5 


(R5) +, A04EX 


INBUF ,R1 
#10,R1 


-(R1) ,AO4RC 
AO4RC 
-(R1) ,AO4RC 


AOGEX ,AO4RC 
50005$ 


TSERCODE 
41 


MSG41 
AREA41 


(SP)+,R1 


50001$ 


SEQ 0047 
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014060 50005$: 


= COMPARE nar uae ues Shon gh THAT EXPECTED 
AND_IF THEY AREN'T THE SAME, REPORT THE ERROR, RESTORE R1 AND 
EXIT WITH THE ERRROR FLAG SET 


IFB -(R1) NE STRTSA THEN 
124167 167611 -(R1) .STRTSA 
001407 7 50006$ 
ERRHRD 4¢,MSG42,AREA42 
104463 Spee 
002437 3 MSG42 
004064 ; AREAG2 
POP R1 


012601 (SP)+,R1 
RETURN ERROR 
000261 


000463 BR 50001$ 
50006$: 
;MOVE THE POINTERS PAST THE HEADER AND COMPUTE THE DATA CRC 


ENDIF 


LET INBUF := INBUF + #10 

062767 * 000010 166044 #10, INBUF 
LET INSIZ := INSIZ - #12 

162767 000012 166040 #12, INSIZ 
CALL CRC IN <INBUF,INSIZ> QUT <AQ4EX> 

aH 


620 
Z 002750 
012567 170002 (R5) + AOGEX 
'GET THE DATA CRC RECEIVED 


016701 166002 ee na MOV INBUF ,R1 

066701 166000 INSIZ,R1 
LET R1 := R1 + #2 

062701 000002 #2,R1 
LET AOSRC :B= -(R1) 

114167 167760 ~(R1) ,AOSRC 
LET AO4RC := SWAP AO4RC 

000367 167754 AO4RC 
LET AO4RC .B= -(R1) 

114167 167750 ~(R1) ,AO4RC 


SIF THEY AREN'T THE SAME; REPORT THE ERROR, RESTORE R1 AND 
EXIT WITH THE ERROR FLAG SET 


, IF AOGRC WE AOGEX THEN 
026767 167744 167744 AOGRC .AOGEX 
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*50007$ 


ERRHRD 43,MSG43,AREA43 
ro 


MSG43 

AREA43 
POP R1 

(SP)+,R1 
RETURN ERROR 


50001$ 


ENDIF 
50007$: 


SOTHERWISE; SET COMPLETE FLAG, RESTORE R1 AND EXIT NORMALLY 


LET ACR5) := A(RS) + #1 
005265 000000 ACRS) 

LET R1 := INBUF - #4 
016701 165720 MOV INBUF ,R1 
162701 000004 SUB #41 

LET RMSGNO :B= (R1) ep 
111167 165730 MOVB = (RT) .RMSGNO 

POP R1 
012601 MOV (SP)+,R1 


ENDRTN 
50000$: 
000241 CLC 


50001$: 
014252 000207 


2 
2 
2 
2 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 


ROUTINE TO CHECK AN INPUT BUFFER FOR A STANDARD 
RESPONSE ("'ACK"* OR *'STACK’') 


LOCATION "'TYPE'' CONTAINS THE RESPONSE CODE EXPECTED 
INPUT BUFFER POINTER IS IN ‘"INBUF* 
INPUT BUFFER SIZE (IN BYTES) IS IN ‘‘INSIZ"* 
SHEE HEHEHE HEH HEH SE HHH SESH E Hee Heese StH Hse Sete ees eee ese se seee eee eeeee 
ROUTINE CHKREP <B> 3€3.2.20.3, 3.2.20.9] 
CHKREP: 
DECLARE LOCALS 
LOCAL <A> 
ALLOCATE 
019446 R4,=(SP) 
010604 | SP “RG 
162706 000002 : #2: SP 
ZIF MESSAGE IS NOT 10 BYTES LONG, IT CAN'T BE A CONTROL MESSAGE 


++ e+e +e e+e + + 


lelelelelelelele) 
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NES 
CZD2CB.P11 21-NOV-78 16:33 . SEQ 0050 
; TYPE AN ERROR MESSAGE AND EXIT WITH ERROR SET 


r IF INSIZ NE #10 THEN 
026727 165670 000010 CMP INSIZ,#10 
001406 $ 


BEQ 
ERRHRD 01,MSG01,AREA01 3(3.2.20.3.4, 3.2.20.9.4] 
104463 . TRAP  aapaaae: 


000001 : 

002323 MSGO1 

003760 . AREAO1 
RETURN ERROR 

000261 


000553 BR 50001$ 
ELSE 
50002$: 
SOTHERWISE, COMPUTE THE CRC AND CHECK IT AGAINST THAT SENT 


’ CALL CRC IN <INBUF,46> OUT <TEMP>  ;(£3.2.20.3.1, 3.2.20.9.1] 
162705 000002 SUB 


000006 
1656350 
002560 PC,CRC 
(SP)+,R5 
012567 165554 (R5)+, TEMP 
LET A(R4) := INBUF + #7 
016764 165612 177776 INBUF ,A(R4) 
062764 000007 177776 #7 ,ACR4) 
LET SCRTCH :B= @A(R4) : 
117467 177776 165530 A _ @A(R4),SCRTCH 
LET SCRTCH := SWAP SCRTCH 
000367 165524 SCRTCH 
LET A(R4) := A(R4) = #1 
005364 177776 A(R4) 
LET SCRTCH :B= @A(R4) | 
117467 177776 165512 @A(R4) ,SCRTCH 


SIF CRC'S MATCH GO ON... OTHERWISE SKIP FOLLOWING CODE 


: IF TEMP EQ SCRTCH THEN 303.2.20.3.2, 3.2.20.9.2] 
026767 165510 165504 CMP TEMP, SCRTCH 
001076 BNE 50004$ 


[COMPARE CONTROL MESSAGE TYPE WITH THAT PASSED AS AN ARGUEMENT 


LET A(R4) := INBUF + #1 
016764 165542 177776 MOV INBUF ,A(R4) 
005264 177776 . INC A(R4) 
LET A(R4) :B= @A(R4) 
117464 177776 177776 MOVB @A(R4) ,ACR4) 
LET A(R4) := A(R4) CLR.BY #HYBYTE ’ 
042764 177400 177776 BIC #HYBYTE ,A(R4) 


SIF NOT THE EXPECTED TYPE, PRINT ERROR MESSAGE AND EXIT WITH ERROR SET 
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IF A(R4) NE B(RS) THEN 3(3.2.20.3.3, 3.2.20.9.3] 
026465 177776 000000 CMP A(R4) ,B(RS) 
001414 ; BEQ 50005$ 
LET AO2A := A(R4) 
016467 177776 167340 MOV A(R4) ,AO2ZA 
LET AO2B := B(RS) 
016567 000000 167334 B(RS) ,A02B 
ERRHRD 02,MSG02,AREA02 3(3.2.20.3.4, 3. 2.20 0. 9.4] 
104463 TSERCODE 
000002 oro 2 
002350 “WORD MSGO2 
003762 “WORD AREAO2 
RETURN ERROR 
000261 SEC 
014474 000460 : BR 50001$ 


OTHERWISE, CHECK TERMINAL ADDRESS 
014476 ELSE 
: ‘ 50005$: 
LET SCRTCH := APTABLE + #5 
012767 002200 165406 MOV oS ernte oe 
062767 000005 165400 ADD #5,S 
LET SCRTCH :B= @SCRTCH 
117767 165374 165372 MOVB @SCRTCH,SCRTCH 
LET SCRTCH := SCRTCH CLR.BY #HYBYTE 
042767 177400 165364 MHYBYTE ,SCRTCH 
LET TEMP := INBUF + #5 
016767 165424 165360 MOV Hg A re 
062767 000005 165352 ADD #5,T 
LET TEMP :B= @TEMP 
117767 165346 165344 MOVB aTEMP , TEMP 
LET TEMP := TEMP CLR.BY #HYBYTE 
042767 177400 165336 BIC #MHYBYTE , TEMP 


TIF NOT THE ae ant TERMINAL ADDRESS, THEN REPORT THE ERROR AND 
cEXIT WITH ERROR S 


IF TEMP NE SCRTCH THEN : 
026767 165332 165326 cup TEMP, SCRTCH 
001406 50007$ 
. ERRHRD 03,MSG03,AREA03 ;(3.2.20.3.4, 3. 2. “20. 9.4] 
104463 TSERCODE 


000003 
002437 
004064 


MSGO3 
AREAO3 


RETURN ERROR 
000261 
000416 BR 50001$ 


ENDIF 
oe, 50007$: 
50006$: 


LIF CRC WAS _IN ERROR, SKIP ABOVE CODE, COME TO HERE, REPORT ERROR AND 
EXIT WITH ERROR SET 
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ELSE 
000414 BR 


50004$: 
LET AO4RC := SCRTCH 
016767 165302 167336 MOV 


LET AOGEX := TEMP 
016767 165276 167332 MOV 
ERRHRD 04,MSG04 ,AREA04 3(3.2.20.3.4, 3.2.20.9. 
104463 TRAP 
000004 
002503 
004116 


000261 
000401 


RETURN ERROR 


ENDIF 
ENDIF 


50010$: 
50003$: 
“NORMAL RETURN 


ENDRTN 
500008: 


50001$: 


pavesmanesesesneeseesecteneoneeenevaseeeetecseseseteerreseesssetineers 
: THIS ROUTINE SETS UP AND CHECKS FOR COMPLETE TRANSMISSION + 
: RETURNS AN ERROR FLAG IF ANY ERROR OCCURS DURING TRANSMISSION + 
: SET ‘‘ABORT'’ IF INITIALIZATION OF THE DEVICE FAILS + 


SHEFEEEEEFEFEFEFE EF EFEFEFE FEF EF EF EEE FEF EEE EE EEE EEE EE FEE EEE Pete eee eeteet+t 
ROUTINE XMIT (3.2. 20,7 AND 3.2.20.1] 
DECLARE LOCALS ; 

LOCAL <B> 


ALLOCATE 


SEQ 0052 


50010$ 


SCRTCH,AO4RC 
TEMP ,AO4EX 


4) 


_— 
MSG04 
AREA04 


50001$ 


R4 SP 
(SP)+,R4 
PC 


010446 R4,-(SP) 
SP,R4 


010604 


162706 000002 #2.SP 


“CLEAR ERROR COUNT, TRANSMIT DONE FLAG AND RECEIVE DONE FLAG 
LET B(R4) := #0 

LET XDONE := #0 

LET RDONE := 40 


177776 
000270 
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014664 005067 000266 
START OF LOOP 


014670 f REPEAT 
014670 50002$: 


[TRY TO INIT DEVICE 
014670 : CALL DEVINIT 
014670 004767 000264 PC ,DEVINIT 


: IF ERROR OCCURRED.... 
014674 IF .ERROR THEN 
103033 50003$ 
PUSH R1 
010146 R1,-(SP) 
PUSH R2 
010246 R2,-(SP) 


:GET A COPY OF THE DEVICE REGISTERS 


R1 := PTABLE 

016701 165272 PTABLE ,R1 
R2 := ADZREG 

012702 002254 A#DZREG,R2 
RCVCSR(R2) := RCVCSR(R1) 

016162 000000 000000 RCVCSR(R1) ,RCVCS 
RCVBUF (R2) := RCVBUF (R1) 

016162 000002 000002 RCVBUF (R1) ,RCVBU 
XMTCSR(R2) := XMTCSR(R1) 

016162 000004 000004 XMTCSR(R1) ,XMTCS 
XMTBUF (R2) := XMTBUF (R1) 

016162 000006 000006 —_—e XMTBUF (R1) , XMTBU 

012602 (SP)+,R2 

POP R1 
012601 (SP)+,R1 


[REPORT THE ERROR AND UPDATE THE ERROR COUNT 
; ERRHRD 23,MSG23,AREA23 


NINMIMINININNNINNPTory 

MUIVIVIVIMIUVIVIVA IV 
ee cD ed ceed eed ed eed nd 3 

SSwNAnRwr—os 


TSERCODE 
23 


MSG23 
AREA23 


LET B(R4) := B(R4) + #1 
177776 B(R4) 


SOTHERWISE, CLEAR THE ERROR COUNT 
: ELSE 


BR 
50003$: 
LET B(R4) := 40 
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014764 005064 
014770 
014770 


014770 
026467 
001010 
104462 
0 


00000 
002264 
003700 


005267 
005464 
015020 


015020 
015020 
015024 


015026 
015026 005764 
015032 001042 


005767 
002032 


019146 
015054 010246 
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177776 
ENDIF 
50004$: 
IF ERROR COUNT HAS EXCEEDED LIMITS, ABORT AND NEGATE THE COUNT 


A IF B(R4) EQ ILIMIT THEN 
177776 165126 


ERRDF 00,MSG00,AREA00 


LET ABORT := ABORT + #1 
LET B(R4) := NEGATE B(R4) 
ENDIF 


165102 
177776 
50005$: 
: END OF LOOP 
ZEXIT LOOP WHEN ERROR COUNT IS ZERO OR NEGATIVE (ABORT) 
; UNTIL B(R4) LE #0 
177776 
SIF NOT ABORT THEN EXECUTE THE FOLLOWING CODE 
SOTHERWISE SKIP AND RETURN WITH ERROR SET 
‘ IF B(R4) EQ #0 THEN 
177776 
‘WAIT FOR TRANSMIT DONE FLAG TO SET 
: REPEAT 
BREAK 


UNTIL XDONE NE #0 


50007$: 


000112 


SIF TRANSMIT FLAG IS NEGATIVE, AN ERROR OCCURRED. 


° 


IF XDONE LT #0 THEN 
000104 


PUSH R1 
PUSH R2 


MOV 
MOV 


SEQ 0054 


B(R4), ,ILIMIT 
50005$ 


TSERCODE 
0 


MSGOO 
AREAOO 


ABORT 
B(R4) 


XDONE 
50010$ 
R1,-(SP) 
R2,-(SP) 


IF ERROR, GET COPY OF DEVICE REGISTERS, PRINT MESSAGE AND EXIT WITH ERROR SET 
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OTHERWISE DO A NORMAL EXIT 
015056 LET R1 := PTABLE 
016701 165116 PTABLE ,R1 
LET R2 := #DZREG 
012702 002254 #DZREG,R2 
LET RCVCSR(R2) := RCVCSR(R1) 
016162 000000 000000 RCVCSR(R1) ,RCVCS 
LET RCVBUF(R2) := RCVBUF (R1) 
016162 000002 000002 RCVBUF (R1) ,RCVBU 
LET XMTCSR(R2) := XMTCSR(R1) 
016162 000004 000004 XMTCSR(R1) ,XMTCS 
LET XMTBUF(R2) := XMTBUF(R1) 
016162 000006 000006 PoP a2 XMTBUF (R1) , XMTBU 
012602 (SP)+,R2 
POP R1 
012601 (SP)+,R1 
ERRHRD 24,MSG24,AREA24 
noe 


MSG24 
AREA24 
RETURN ERROR 


50001$ 
ENDIF 


ELSE 


50010$: 
50011$ 
50006$: 
RETURN ERROR 


50001$ 
ENDIF 


ENDRTN 


50011$: 
50000$: 
50001$: 


R4,SP 
(SP)+,R4 
PC 


— 
Walwaleabea bea bea beg bealegbealea les lea lealeabealeabealegleabealealesieu le ie lea lelele.le, le le. ele yey yw 
walvalealeal wr ar wr wr ar ar OP ot ar ae WWWRNRINNNN 00 
RRNGRAR RRR AVOOOHOOORRNNORRNNVOSRAROOUN 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


a SS HP SS SS os Ss SS Ss Ss HF) Ss SS Ss SS SS 9) ) ss Ss) SS Ss @ 


SHEE E HEHEHE HEHE HHH EHH Ee H EHS et Ht tet tte Het te tee tHe se Heese estes eee see eee ete 


: ROUTINE TO INITIALIZE A DEVICE + 
2 + 
; IF "‘INIT'' IS NON-ZERO, THE ROUTINE WILL EXECUTE AND SET IT 

: RETURNS WITH AN ERROR IF CTS CANNOT BE SET 
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Orentst ERROR AND ‘‘ABORT’' SET IF THE DEVICE DOES 


SEFFEFFFF FFF FFF FFF FFF FF FFF FFF FF FF FFF FFF FFF FFF FFF FFF FFP FFF ttt test tots tet 
ROUTINE DEVINIT 3€3.2.20.1.5 AND 3.2.20.7.2] 
DEVINIT: 
DECLARE LOCALS 
LOCAL <A> 


ALLOCATE 
010446 R4,-(SP) 
SP-R4 


td 


000002 #2,SP 


PUSH R1 

010146 R1,-(SP) 
PUSH R2 

010246 R2,-(SP) 


[GET DEVICE ADDRESS 


: LET R1 := PTABLE 
016701 165000 PTABLE ,R1 


;DO A MASTER CLEAR ON THE DZ AND WAIT FOR THE CLEAR BIT TO GO DOWN 


: LET RCVCSR(R1) := RCVCSR(R1) SET.BY #MASCLR 
052761 000020 000000 REPEAT AMMASCLR ,RCVCSR(R 


UNTIL #MASCLR NOTSETIN RCVCSR(R1) 
032761 000020 000000 AMASCLR,RCVCSR(R 
001374 BNE 50002$ 


; 
e 
Ps 
° 


oooOo BCOCOCOCO 
=o SS ed od od od wd wd 
VMI WWIII 
4 — 3 SS YY I) YS 
NNYN oO oa 
NNSS FVSSSSSS 


GET THE LINE MASK AND SET THE RIGHT DATA TERMINAL READY BIT IN 


LET SCRTCH := $LINE 

016767 000412 164666 $LINE ,SCRTCH 
LET SCRTCH := SWAP SCRTCH 

000367 164662 SCRTCH 
LET XMTCSR(R1) := XMTCSR(R1) SET.BY SCRTCH 

056761 164656 000004 SCRTCH, XMTCSR(R1 


[WAIT 10MSEC AND SEE IF CARRIER IS UP 
IF NMOD EQ #0 THEN 
005767 164746 


NMOD 

001035 BNE 50003$ 

WAITUS #100 
012700 000100 MOV #100,RO 
104027 C$WTU 

IF SCRTCH NOTSETIN XMTBUF(R1) THEN 
036761 164634 SCRTCH, XMTBUF (R1 

BNE 50004$ 


001026 
Li’ R2 := #DZREG 
012702 002254 #DZREG,R2 
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2728 LET RCVCSR(R2) := RCVCSR(R1) 
2729 015266 016162 000000 RCVCSR(R1) ,RCVCS 
2730 LET RCVBUF(R2) := RCVBUF(R1) 
016162 000002 RCVBUF (R1) ,RCVBU 
LET XMTCSR(R2) := XMTCSR(R1) 
016162 000004 XMTCSR(R1) ,XMTCS 
LET XMTBUF(R2) := XMTBUF(R1) 
016162 000006 XMTBUF (R1) , XMTBU 
POP R2 
012602 (SP)+,R2 
POP R1 
012601 (SP)+,R1 
ERRHRD 05,MSG05 ,AREA30 
104463 TSERCODE 
00000 5 


5 . 
002375 ° MSGO5 
004534 ° AREA30 
RETURN ERROR 
000261 
000534 BR 50001$ 


ENDIF “ieee 
ENDIF ; 


50003$: 


GET THE LINE NUMBER, STOP CODE, CHARACTER LENGTH AND BAUD RATE 
; THE PTABLE AND CLEAR EXTRANEOUS BITS. SET THE RECEIVER ENABLE 
sAND LOAD THE DZ LINE CONTROL REGISTER. 


° 


LET R2 := #PTABLE + #6 : 

012702 002200 #PTABLE .R2 

062702 000006 #6,R2 
LET R2 := (R2) 

011202 (R2) ,R2 
LET R2 := R2 CLR.BY #300 

042702 000300 #300,R2 
LET R2 := R2 SET.BY #10000 

052702 010000 #10000 ,R2 
LET RCVBUF(R1) := R2 

010261 000002 R2,RCVBUF (R1) 


GET THE DEVICE PRIORITY AND SET UP THE INTERRUPT HANDLERS AND 
CLEAR THE NEW MESSAGE FLAG (NMSG) 


012767 002200 164620 LET DEVPRI := #PTABLE + #4 #PTABLE I 
.DEVPR 
062767 000004 164612 #4 ,DEVPRI 
LET DEVPRI :B= aDEVPRI 
117767 164606 164604 @DEVPRI ,DEVPRI 
LET DEVPRI := DEVPRI CLR.BY #HYBYTE 
042767 177400 164576 #HYBYTE ,DEVPRI 
012764 002200 177776 LET A(R4) := #PTABLE + #2 #PT 4) 
MO ABLE .AC(R 
062764 000002 177776 #2,.A(RGS 
SETVEC @A<°4) ,4RINT,DEVPRI 
016746 164556 DEVPRI,-(SP) 


lelelelelelelelelelelejo) 
4 mS ess SS Ss SS - 
DAAMAA AA ANII 
HRRRHRKARARRHR 
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016066 #RINT .~(SP) 
177776 
000003 


000010 
LET NMSG := #0 


000176 
LET A(R4) := @A(R4) + 44 
177776 «177776 @A(R4) ,ACR4) 
177776 #4 ,A(R4) 
SETVEC A(R4) ,AXINT,DEVPRI 
DEVPRI ,-(SP) 


#XINT,~(SP) 
A(R4) ,=(SP) 
#3,-(SP) 


GET COPIES OF THE DEVICE BUFFER REGISTER ADDRESSES 


LET XMTADD := R1 + #6 
010167 R1,XMTADD 
062767 900006 000100 #6, XMTADD 
010167 LET RCVADD := R1 + #2 ‘ 
R1,RCVADD 
062767 000070 #2,RCVADD 


:SET COUNTS FOR 4 SYNC'S AND FOUR FILL CHARACTERS 


LET SYNCNT := #4 
012767 #4, SYNCNT 
LET FLLCNT := #4 
012767 MOV #4, FLLCNT 


SUSE LINE MASK TO ENABLE THE TRANSMITIER...ENABLE THE MASTER SCAN 
ENABLE TRANSMIT AND RECEIVE INTERRUPTS 


LET XMTCSR(R1) := XMTCSR(R1) SET.BY SLINE 

056761 000004 BIS SLINE ,XMTCSR(R1) 
LET RCVCSR(R1) := RCVCSR(R1) SET.BY 4MSCNEN 

052761 000000 BIS #MSCNEN, ,RCVCSR(R 
LET RCVCSR(R1) := RCVCSR(R1) SET.BY #TXINTE 

052761 000000 BIS #TXINTE .RCVCSR(R 
LET RCVCSR(R1) := RCVCSR(R1) SET.BY #RXINTE 

052761 000000 — BIS #RXINTE ,RCVCSR(R 

012602 MOV (SP)+,R2 
POP R1 

012601 MOV (SP)+,R1 


[SET INIT COMPLETE FLAG 
LET INIT := INIT + #7 


ENDRTN 
50000$: 
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R4,SP 
(SP)+,R4 
PC 


Oo 


; TRANSMIT BUFFER REGISTER ADDRESS 

RECEIVE BUFFER REGISTER ADDRESS 

: TIMER FOR CLEAR TO SEND OPERATION 

septs OF Hig CHARACTERS INSERTED BEFORE DDCMP MESSAGE 


;NUMBER OF FILL oe tke AFTER MESSAGE 
gpd ae ee COMPLETE FLAG 
FILL CHARACTER 


? CURRENT TRANSMIT ee ER we 


COSCO SOCCOCCO 


1ZE 
CNTFLG: CONTROL FLAG FOR INPUTTING DDCMP MESSAGES 


; RECEIVER QUEUES 
RQUEUE : ZQUEUE POINTER FOR BUFFER PROCESSING 
RQUE : SQUEUE POINTER FOR NEXT AVAILABLE BUFFER 
TQUEUE OF BUFFER ADDRESSES AND SIZES 


QUEUE POINTER FOR hy AVAILABLE BUFFER AREA 


RBQUE T : QUEUE OF BUFFER AREAS 


RBGUEB: 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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3 


BISVBYBB 
WONAURWIO 


3 
3 


0157 
015742 


015744 


016012 


21-NOV-78 


016700 
104041 


010146 


005767 
003413 


117701 
042701 
110177 
005267 
005367 


056777 
005367 
000415 


4% 
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164266 


177712 


177714 


177704 
177400 
177656 
177670 
177666 


177650 


177646 
177634 


Sadat? 9019930 
SION INTERRUPT HAN 


ERRUPT HANDLER \ 
ANOONONNSSN NINN NSC CONNLUASONNOOUN 
BGNSRV XINT 303.2.20.1.7 AND 3.2.20.7.4] 


“SET PROCESSOR PRIORITY LEVEL 
SETPRI DEVPRI 
DEVPRI RO 
C$SPRI. 
SIF SYNC COUNT EQUAL TO ZERO... 
: IF SYNCNT EQ #0 THEN 
SYNCNT 
50005$ 
CHECK BUFFER SIZE. 
IF GREATER THAN ZERO, THEN.. 
PUSH R1 


R1,~-(SP) 
IF XSIZE GT #0 THEN 


XSIZE 
50006$ 


SEND THE NEXT CHARACTER AND UPDATE POINTER AND COUNT 
LET R1 :B= @XBUFFER 
LET R1 := R1 CLR.BY #HYBYTE 
LET @XMTADD :B= R1 
LET XBUFFER := XBUFFER + #1 
LET XSIZE := XSIZE - #1 


@XBUF FER ,R1 
#HYBYTE ,R1 
R1,@XMTADD 
XBUF FER 
XSIZE 
IF ALL CHARACTERS SENT, CHECK FILL COUNT. 
ELSE 
50006$: e 


TST 
BEQ 


IF FILL COUNT ISN'T ZERO SEND A FILL CHAR. AND DECREMENT COUNT 
LET @XMTADD := @XMTADD SET.BY FIL 


177630 BIS FIL .@XMTADD 
LET FLLCNT := FLLCNT — #1 
DEC FLLCNT 


ELSE 
BR 50011$ 


IF FLLCNT NE #0 THEN 
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ca Sen 500108: 
2934 IF ALL TRANSMIT DONE, DISABLE TRANSMISSION AND SET DONE FLAG 


016014 LET R1 := XMTADD - #6 
16014 016701 177616 MOV XMTADD ,R1 

162701 000006 SUB #6,R1 
LET XDONE := XDONE + #1 

005267 177124 INC XDONE 
ABORTWAIT 

104021 EMT C$ABRT 
LET XMTCSR(R1) := XMTCSR(R1) CLR.BY $LINE 

046761 177576 000004 BIC $L INE ,XMTCSR(R1) 
LET RCVCSR(R1) := RCVCSR(R1) CLR.BY #TXINTE 

042761 040000 000000 BIC AMTXINTE ,RCVCSR(R 


ENDIF 
50011$: 
ENDIF 
50007$: 
POP R1 
012601 (SP)+,R1 
3..-OTHERWISE, SEND A SYNC AND DECREMENT THE SYNC COUNT 


ELSE 
000405 BR 50012$ 


50005$: 
LET @XMTADD :B= #SYNC 
112777 000377 177556 #SYNC , @XMTADD 
LET SYNCNT := SYNCNT —- #1 
005367 177560 SYNCNT 


ENDIF 
50012$: 


[DO A SUPERVISOR-TYPE RT! 
ENDSRV 


L10027: 
R 


See tian Ituanet Ea 
RECEPTION INTERRU \ 
ASSNSNONY SSNS NUSNASOSSAUNN USSU EO RONONUN NNT 
BGNSRV RINT £€3.2.1.1.1, 3.2.20.2.1 AND 3.2.20.9.1] 


“SET PROCESSOR PRIORITY 
; SETPRI DEVPRI 
016700 164120 MOV DEVPRI RO 
104041 EMT C$SPRI 
PUSH R1 


74 
016074 010146 MOV R1,-(SP) 





kK. 5 
ASSEMBLY ROUTINES MACY11 30A(1052) 29=DEC=78 11:50 PAGE 62 
CZDZ(B.P11 21-NOV-78 16:33 


‘IF NEW MESSAGE FLAG IS RESET... 


‘GET THE BYTE 
016076 ; LET R1 := @RCVADD 
016076 177536 @RCVADD,R1 


IF ERROR, REPORT IT AND EXIT IMMEDIATELY (FORCE RESTART) 


IF #70000 SETIN R1 THEN 
032701 070000 #70000,R1 
001407 50013$ 
LET RDONE := R1 
010167 177042 R1,RDONE 
- LET NMSG := #0 
005067 177540 NMSG 
POP R1 
012601 ; (SP)+,R1 
000167 000500 JMP REXIT 
ENDIF 


50013$: 
LET R1 := R71 CLR.BY #HYBYTE 
177400 #MHYBYTE .R1 
IF NMSG EQ #0 THEN 
177522 


lolelelelelelelo) 
oh a ad ad at oh ec ed 
AAAAAAAO 
and od en at nl and ca on 
oOo 
Mr 


wooo 
SRROOSK 


ad od ab ad a aed ac ed 
COONAUSW—O 


CHECK FOR SYNC/FILL CHARACTER 
(LOOKING FOR FIRST NON-SYNC/NON-F ILL) 


IFB R1 NE #SYNC ANDB R1 NE FIL THEN 


30 
30 
30 
30 
30 
30 
30 
30 
30 


— 


000377 
177500 


NOT FILL OR SYNC. CHECK FOR ENQ (DDCMP CONTROL MESSAGE). 


IFB R1 EQ #ENQ THEN 
000005 


BNE 


ENQ, SET EXPECTED BYTE COUNT. TO 7, SET MESSAGE SIZE 
L) AND UPDATE THE BUFFER QUEUES 


LET RTEMP1 := @RBQUE , 

177522 177472 ae @RBQUE ,RTEMP 1 
LET @RQUE := RTEMP? ‘ 

177466 177474 RTEMP1 , @RQUE 
LET @RIcMP1 :B= R1 

177460 R1,@RTEMP1 
LET RTEMP1 := RTEMP1 + #1 

177454 RTEMP1 
LET RBQUE := RBQUE + #2 


jeleleleleleleleol=) 
SS 3 ss Ss 
ADRXAAAAGAAX 


RAY 
ROS 
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062767 000002 177474 #2 ,RBQUE 
IF RBQUE GT #RBQUEB THEN 
a SHA 177470 015716 RBQUE , #RBQUEB 


50017$ 
LET RBQUE := #RBQUET 
012767 015712 177456 va #RBQUET , RBQUE 


LET RTEMP2 := #7 

012767 000007 177424 #7 ,RTEMP2 
LET RQUE := RQUE + #2 

062767 000002 177424 #2, RQUE 
LET @RQUE := #10 

012777 000010 177416 #10, @RQUE 
LET RQUE := RQUE + #2 

062767 000002 177410 #2, RQUE 

. IF RQUE GT #RQUEB THEN 
026727 177404 015706 RQUE , #RQUEB 
003403 


50020$ 
LET RQUE := #RQUET : 
012767 015674 177372 MRQUET , RQUE 


ENDIF 
50020$: 
SET COUNTER FLAG TO -1 (MESSAGE SIZE COUNT COMPLETE) 
LET CNTFLG := #1 
as. 


177777 +=177360 #-1,CNTFLG 


BR 
50016$: 
NOT FILL, SYNC OR ENQ. CHECK FOR SOH OR DLE (DDCMP DATA MESSAGE) 


IFB R1 EQ #SOH ORB Ri EQ #DLE THEN 
000201 


000220 


BNE 
50022$: 


MOVE QUEUE POINTER TO SIZE ENTRY AND SET COUNTER FLAG TO 1 (EXPECT 
FIRST COUNT BYTE) 


LET RTEMP1 := @aRBOLE 
177360 177330 MOV @RBQUE ,RTEMP1 
LET @RQUE := RTEMP1 
016777 177324 177332 ' st PRISE 5h MOV RTEMP1 , ARQUE 
110177. 177316 a hee en te R1,aRTEMP1 
LET R := RTEMP1 + # 
005267 177312 PB ABI 6 RTEMP1 
L QUE := RBQUE + # 
sentence A. IF RBQUE GT #RBQUEB THE =. 
; U 4 U HEN 
026727 177326 015716 RBQUE . #RBQUEB 
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3100 50024$ 
210) 0 LET RBQUE := #RBQUET 
1 015712 177314 #RBQUE T , RBQUE 


ENDIF 
50024$: 
LET RQUE := RQUE + #2 
000002 177270 #2 ,RQUE 
LET CNTFLG := #1 
000001 177256 #1,CNTFLG 


ELSE 
50025$ 


“sys 
oO 


VISDONAARWUAOSRIRAR 


- 500238: 


> BYTE WASN'T ANY OF THE LEGAL CHARACTERS... FORCE 
> A RESTART BY FORCING THE NEW MESSAGE FLAG 10 RESET ON EXIT. 


LET NMSG := NMSG - #1 


ENDIF 
50025$: 
ENDIF 


~ 50021$: 
: SET THE NEW MESSAGE FLAG 
: ROUT INE 


177242 


ad ed nd ed = 8) od SS 8 8d 9 LL J 


ron 
MEW 


EXIT 


WWNWANANWANWAAWNAAANAAAA 


LET NMSG := NMSG + #1 
ENDIF 


177236 
50015$: 


NEW MESSAGE FLAG IS SET... CONTINUE BUILDING MESSAGE 
ELSE 


BR 
50014$: 
A NEW MESSAGE...GET BYTE AND STORE IT 


2 LET @RTEMP1 :B= R1 
110177 177232 MOVB = R1,aRTEMP1 


IF COUNTER FLAG IS GREATER THAN ZERO, BYTE IS ALSO THE FIRST COUNT BYTE 


IF CNTFLG GT #0 THEN 
177232 R TST CNTFLG 
BLE 50027$ 


PUT THE BYTE iN RTEMP2 (EXPECTED COUNT), UPDATE THE BUFFER POINTER 
son ie ett COUNTER FLAG (SET TD GET SECOND COUNT BYTE) AND 


LET RTEMP2 :B= @RTEMP1 

117767 177220 177220 : MOVB @RTEMP1 .RTEMP2 
Lio’ RTEMP2 := RTEMP2 CLR.BY #HYBYTE 

042767 177400 177212 #HYBYTE ,RTEMP2 


WINNINNAWNANAWAANAWW 
=_— a SS I oS 
MUMUVIUIUL ES & BS IS * 
MEWN—OOONAW 
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005267 
005367 
000460 


010146 
117701 
005267 
000301 
042701 
060167 
012601 


016777 
062777 


062767 


026727 
003403 


012767 


177204 
177204 


177176 


177162 
177156 


140377 
177146 


177140 
000012 


000007 


000002 
177116 


015674 


177144 
77136 


177122 


177122 
015706 


177104 
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LET RTEMP1 := RTEMP1 + #1 
LET CNTFLG := CNTFLG = 41 
ELSE 
BR 
50027$: 
_ COUNTER FLAG NOT GREATER THAN ZERO, IS IT ZERO? 

IF CNTFLG EQ #0 THEN 
TST 
BNE 


{fF ZERO, BYTE IS ALSO SECOND BYTE OF COUNT (6 HIGH ORDER BITS) 
GET IT, MASK IT AND PUT IT INTO RTEMP2 (EXPECTED COUNT) 


PUSH R1 

LET R1 :B= @RTEMP1 

LET RTEMP1 := RTEMP1.+ #1 
LET R1-:= SWAP R1 

LET R1 := R1 CLR.BY #140377 
LET RTEMP2 := RTEMP2 + R1 
POP R1 


MOV 
MOVB 


SWAB 


PUT THE COMPLETE SIZE IN THE QUEUE (EXPECTED COUNT + 
12 (OCTAL) BYTES OF HEADER AND CRC) 


LET @RQUE := RTEMP2 
LET @RQUE := Q@RQUE + #12 


MOV 
ADD 


ay gt hee COUNT TO INCLUDE THE REMAINDER OF THE HEADER AND 


LET RTEMP2 := RTEMP2 + #7 
ADD 


UPDATE THE QUEUE AND DECREMENT THE COUNTER FLAG (COUNT COMPLETE) 
LET RQUE := RQUE + #2° 
IF RQUE GT #RQUEB THEN 


ADD 


LET RQUE := #RQUET 
ENDIF 


RTEMP1 
CNTFLG 


50030$ 
‘ 


CNTFLG 
50031$ 


R1,-(SP) 
@RTEMP1 ,R1 
RTEMP1 

R1 
#140377,R1 
R1,RTEMP2 
(SP)+,R1 


- RTEMP2 ,@RQUE 
#12, ARQUE 


#7 ,RTEMPS 


#2 ,RQUE 


RQUE , #RQUEB 
50032$ 


#RQUET ,RQUE 





B 6 
ASSEMBLY ROUTINES MACY11 30A(1052) 29-DEC-78 11:50 PAGE 66 
CZDZCB.P11 21-NOV-78 16:33 


016566 

01 LET CNTFLG := CNTFLG = #1 

005367 177074 CNTFLG 
GO DO AN RTI 


ELSE 


=_—— Lo et 


KORSRORSAORIRGRORY 
SOMNAAR 


BR 
50031$: 


COUNTER FLAG IS LESS THAN ZERO... THIS IS A DATA BYTE 
UPDATE POINTER AND COUNT 


LET RTEMP1 := RTEMP1 + #1 
LET RTEMP2 := RTEMP2 - #1 


177062 
177060 

IF COUNT HAS REACHED ZERO, END OF MESSAGE. SET DONE FLAG. 
177054 IF RTEMP2 EQ #0 THEN 


LET RDONE := RDONE + #1 
176340 


ABORT ANY WAITS AND RESET NEW MESSAGE FLAG 
ABORTWAIT 
LET NMSG := #0 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


177034 
50034$: 
50033$: 
50030$: 
50026$: 
=DO RTI 
‘ POP R1 
012601 (SP)+,R1 
REXIT: ENDSRV 
L10030: 
000002 


aaa aaa aaa aaaaaaaahaeaaaaaahaaaaacaaaaeaeaeeaaeeaeecaacerneeceareeenn. 
+ 

ROUTINE TO GET AN INPUT BUFFER FROM THE INPUT QUEUES 
WILL RETURN AN ERROR IF TERMINAL DOES NOT RESPOND 


+ 
+ 
+ 
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he leton " o he? ar ne ct ERROR PRINTOUT. THIS ALLOWS 
; THE PROGRAM TO RETRY THE STRT=STACK SEQUENCE WITHOUT HAVING 
: AN ERROR MESSAGE EACH TIME 


SESE SEF SHH HEHEHE SHS HE HFEF t Het HHe He Hee Ht Hee Hehehe othe 444444444 eset 
ROUTINE RCVE 303.2.1.1, 3.2.20.2 AND 3.2.20.8] 
RCVE : 
‘RESET TIMER 
LET TIMER := 40 


:GO TO SUPERVISOR FOR AWHILE AND INCREMENT TIMER 


REPEAT 
50002$: 
WAITUS #100 3(3.2.1.1.4, 3.2.20.2.4, 3.2.20.8. 
000100 MOV 


LET TIMER := TIMER + #1 
176774 


;LOOP UNTIL TIME LIMIT EXCEEDED OR RECEIVER DONE FLAG IS SET 


UNTIL TIMER GT TIMLIM OR RDONE NE 40 
026767 176770 163244 TIMER, TIMLIM 
003003 50003$ 


176274 DONE 
500028 
50003$: 
SRESET THE NEW MESSAGE FLAG 


: LET NMSG := 40 
005067 176770 


SIF THE TIME LIMIT WASN'T EXCEEDED... 


; IF TIMER LT TIMLIM THEN 
026767 176746 163222 TIMER, TIMLIM 
002044 0004$ 


‘RESET THE TIMER 
[CHECK FOR ERROR (RDONE LESS THAN ZERO) 


LET TIMER := #0 
176736 CLR 
IF RDONE GT #0 THEN 
176246 TST 
BLE 


NOT ERRROR, GET BUFFER ADDRESS AND SIZE FROM QUEUE AND UPDATE QUEUE 
LET INBUF := @RQUEUE 
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016712 017767 176752 163236 @RQUEUE , INBUF 

LET RQUEUE := RQUEUE + #2 

062767 900002 176742 #2 , RQUEUE 
LET INSIZ := @RQUEUE 

017767 176736 163224 @RQUEUE , INSIZ 
LET RQUEUE := RQUEUE + #2 

062767 000002 176726 #2 ,RQUEUE 
IF RQUEUE GT #RQUEB THEN 

026727 176722 015706 Saeus anaes 


003403 
LET RQUEUE := #RQUET 


012767 015674 176710 MRQUET , RQUEUE 
016760 ENDIF 
016760 ' 


‘RESET DONE FLAG AND LEAVE 
‘ LET RDONE := #0 
176172 CLR 
ELSE 
BR 
50005$: 
TERROR DID OCCUR...RESET THE DONE FLAG, REPORT ERROR, RETURN WITH ERROR 


: ERRHRD 26,MSG26,AREA26 
TSERCODE 


MSG26 
AREA26 
LET RDONE := 40 
176154 RDONE 
RETURN ERROR 


50001$ 
ENDIF 


ELSE 


50007$: 


BR 50010$ 
50004$: 


:TIME LIMIT EXCEEDED...RESET TIMER, GET REGISTER CONTENTS 


LET TIMER := #0 
005067 176626 TIMER 
PUSH RI 
010146 R1,-(SP) 
016701 176616 a RCVADD.R1 
162701 000002 #2,R1 
PUSH R2 


019246 R2,-(SP) 
LET R2 := #DZREG 
012702 002254 #DZREG,.R2 
LET RcVCSR(R2) := RCVCSR(R1) 
016162 000006 000000 RCVCSR(R1) ,RCVCS 
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3380 017042 LET RCVBUF(R2) := RCVBUF(R1) 
3381 017042 016162 000002 000002 MOV RCVBUF (R1) ,RCVBU 
3382 017050 LET XMTCSR(R2) := XMTCSR(R1) 
3383 017050 016162 000004 009004 MOV XMTCSR(R1),XMTCS 
3384 017056 LET XMTBUF(R2) := XMTBUF(R1) 
3385 017056 016162 000006 000006 MOV XMTBUF (R1) , XMTBU 
3386 017064 POP R2 
3387 017064 012602 MOV (SP)+,R2 
3388 017066 POP R1 
ad 017066 012601 MOV (SP)+,R1 
$e3) PRINT ERROR MESSAGE 
3393 017070 ERRHRD 31,MSG31,AREA31 
3394 017070 104463 TRAP TSERCODE 
3395 017072 000037 -WORD 31 
3396 017074 003301 -WORD MSG31 
add 017076 004534 «WORD AREA31 
$206 RETURN WITH ERROR IN ANY CASE 
3401 017100 RETURN ERROR 
403 O1FI02 ooocoT sR 500018 
3404 017104 ENDIF 
3405 017104 50010$: 
x09 gira mons Sooo 
$: 
3408 017104 000241 CLC 
3409 017106 50001$: 
3410 017106 000207 RTS PC 
3411 
3412 
3413 
3414 
3415 
x5 STEHT EEE EHF EHH EHH HEHE HH EHF E te H tH ttt set sett settee settee teste etter eet 
: + 
715 DUMMY ROUTINE FOR COMPATIBILITY + 
s + 
3420 a A i i i a a ee a te le ee ee ee Oe a ee ee ee 
3421 017110 ROUTINE INSERR <A> 
3422 017110 INSERR: 
50 B19 Paty 
0000$: 
3425 017110 50001$: 
3426 017110 000207 RTS PC 
3427 
3428 
3429 
3430 
3431 
3432 
Utz LEFF H EFF HEHEHE FEF H HHH FFE HEHE HEHEHE Ht eH SH e Ht t eH tee e ets H eset sete ee eeteeeet 
3435 : THIS ROUTINE COMPUTES CRC-16 AND REQUIRES THREE ARGUMENTS: + 
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hy ADDRESS, DATA SIZE (IN BYTES) AND A WORD LOCATION 
" COMPUT 


4 
FOR THE D CRC + 
(3.2.1.2.1, 3.2.1.2.4, 3.2.20.1.2, 3.2.20.3.1, + 
3.2.20.6.2. 3.2.20.6.4 AND 3.2.20.10.11] + 
+ 
+ 
+ 
+ 


THIS IS A STANDARD ROUTINE FROM DEC'S NETWORK GROUP 


SEES FETE EEF EEF EEE Ft FE Ft Ht tt tH tH ttt tet tt ttt ttt ttt ete t este tte t tte tet tese 


ROUTINE CRC <A,B,(C> 
CRC: 


DECLARE LOCALS 
LOCAL<D,E> 
ALLOCATE 
010446 R4,-(SP) 
010604 SP,R4 
162706 #4,SP 
PUSH R1 
010146 R1,-(SP) 
PUSH R2 
010246 R2,-(SP) 
PUSH R3 
010346 R3,-(SP) 
LET R71 z= A(R5) 
016501 000000 A(R5),R1 
LET R2 := B(RS) 
016502 000002 B(RS) .R2 
LET R3 := 40 
005003 R3 
WHILE R2 GT #0 DO 
50002$: 


005702 : T R2 
003500 50003$ 
D(R4) :B= (R1)+ 
112164 177776 , (R1)+,D(R4) 
D(R4) := D(R4) CLR.BY AHYBYTE 
177400 177776 #MHYBYTE ,D(R4) 
R2 := R2 - #1 
R2 
D(R4) := D(R4) XOR R3 
R3,-(SP) 
177776 D(R4), (SP) 
177776 R3,D(R4) 
177776 (SP)+,D(R4) 
E(R4) := D(R4) 
177776 177774 D(R4) ,E(R4) 
D(R4) := D(R4) CLR.BY 4177760 
177760 177776 #177760,D(R4) 
D(R4) := D(R4) SHIFT #1 
177776 D(R4) 
D(R4) := D(R4) + ACRCTAB 
017366 177776 #CRCTAB.D(R4) 
D(R4) := aD(R4) 
177776 177776 f aD (R4) .D(R4) 
E(R4) := E(R4) CLR.BY 4177417 
177417 1777764 #177417,E(R4) 
E(R4) := E(RG) SHIFT =3 


jolelelelelelelele) 
a ed ed ed ad od ed 
NNN 
ee ed eB ed aed ed ed 
Mee So 
MOO SMM PP! 


Mw 
Who 


iat EEE 
SHVRAR N 
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017242 177774 
177774 


177774 
:= E(R4) + ACRCTAB 
017366 177774 A#CRCTAB,E(R4) 
:= E(R4) + #32. - 
000040 177774 #32. ,E(R4) 
z= @E(R4) 
177774 «177774 @E (R4) ,E (R4) 
:= D(R4) XOR E(R4) 
177774 E(R4) ,~(SP) 
177776 D(R4) , (SP) 
177774 177776 E(R4) ,D(R4) 
177776 (SP)+,D(R4) 
R3 CLR.BY ALOBYTE 
000377 #LOBYTE ,R3 
z= SWAP R3 R3 


R3 XOR D(R4) 
177776 D(R4) ,~(SP) 
R3, (SP) 


177776 D(R4) .R3 
(SP)+.R3 
ENDDO 


50002$ 


LET C(R5) := R3 
R3,C(R5) 
POP R3 


012603 (SP)+,R3 
POP R2 

012602 (SP)+,R2 
POP R1 

012601 (SP)+,R1 


ENDRTN 
50000$: 
50001$: 


R4,SP 
(SP)+,R4 
PC 


NSaRvuoOR 
MOAKNOS 


142201 142201 
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017424 002100 
000000 000000 


104001 
042000 
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2266 017466 BGNMOD TESTS 


3568 : HARDWARE TESTS [3.2] 
3569 : 


425), ROLOl Ole OL Ol Ol Ol Ole ele e lolol ele eel olel ele ole ooo ole o olor e 

; <-> 
3573 ; SELF TEST (3.2C) <> 
; <> 
3575 ROTO OL Ol Ole OleOle Ol Ole Ol OO eee ele eo Ole ole ele el elelolere! 
3576 017466 BGNTST 


3578 ‘FORCE INIT OF COMM DEVICE AND LINK 
3580 017466 : LET INIT := #0 
3581 017466 005067 176156 CLR INIT 


82 é 
3583 ;GET MESSAGE ADDRESS AND SIZE 


84 ; 
3585 017472 LET OUTMSG := MDMSG CLR.BY #100001 
3586 017472 016767 000770 162442 MOV MDMSG , OUTMSG 
3587 017500 042767 100001 162434 BIC #100001 ,OUTMSG 
3588 017506 LET OUTMSG+2 := MDMSG+2 
Fes 017506 016767 000756 162430 MOV MDMSG+2 ,OUTMSG+2 


3591 ‘SEND THE MESSAGE 


3593 017514 . . CALL TEROUT 
3594 017514 004767 173040 JSR PC, TEROUT 


3596 3: IF ERROR.... 
3597 : 

3598 017520 IF .ERROR THEN 

3599 017520 103015 , BCC 50004$ 


3601 : INSERT ERROR INTO STATISTICS TABLE (MANUFACTURING VERSIONS ONLY), 
2 ; REPORT THE ERROR, REQUEST SUPERVISOR TO LOOP 
3603 : IF LOOPING ENABLED (EXIT TEST IF NO LOOPING) 


3605 017522 CALL INSERR IN <#0> 
017522 010546 MOV R5,~-(SP) 
3607 017524 012745 000000 MOV #0 ,~(R5) 
7 004767 177354 JSR PC, INSERR 
012605 MOV (SP)+,R5 
017536 ERRHRD 50,MSG50,AREA4O 
7536 104463 TRAP TSERCODE 
000062 D 50 


- WOR 

017542 003467 -WORD MSG5O 

004262 AREA4O 
017546 CKLOOP 
017546 104006 EMT CSCLP1 
017550 EXIT TST 
017550 104032 EMT CSEXIT 
017552 000412 -WORD L10031-. 


ENDIF 
017554 50004$: 


eeeoranes 


ssa aaatatataty 
WONOUSWA-O 
Sssssss 
z 
3 


eS 

-—oo 
So 
— 
™N 
wi 
w 
> 
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[LOOK FOR ACK 


017554 CALL TERIN OUT <MCOMP> 
162705 000002 #1*2,R5 
004767 174056 PC, TERIN 
012567 000674 «R5)+,MCOMP 


i IF ERROR...INSERT ERROR INTO TABLE (MANUFACTURING TEST ONLY) 
: REPORT THE ERROR, REQUEST LOOP IF ENABLED (EXIT TEST 
: IF NO LOOPING) 
IF ERROR THEN 
103015 50005$ 
CALL INSERR IN <#0> 
010546 R5S,-(SP) 
000000 #0.-(R5) 
177304 PC; INSERR 


(SP)+,R5 
FRRHRD 50,MSG50,AREA4O 
Sane 


MSGSO 
AREA4O 


CSCLP1 


CSEXIT 
L10031-. 


CKLOOP 
EXIT TST 


ENDIF 


0 
017624 50005$: 


LIF MESSAGE WAS NOT AN ACK...ERROR 
: REPORT ERROR, LOOP IF ENABLED, EXIT TEST IF NOT 
017624 IF MCOMP NE 40 THEN 
005767 000634 MCOMP 
001407 50006$ 
ERRHRD 50,MSG50,AREA4O 

104463 TSERCODE 
00006 50 


2 . 

003467 MSGSO 

004262 ° AREA4O 
CKLOOP 

104006 CSCLP1 
EXIT TST 

104032 CSEXIT 

000316 - WOR i. 10031-. 

ENDIF 


017650 50006$: 
[FORCE A RESTART ON THE LINK AND WAIT FOR SELFTEST TO COMPLETE 
017650 : LET INIT := #0 


017650 175774 
017654 LET SCRTCH := #0 
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017654 005067 162232 SCRTCH 
017660 REPEAT 
17660 


WAITUS #100 
012700 000100 MO #100.RO 


LET SCRTCH := SCRTCH + #1 
005267 162220 SCRTCH 
UNTIL SCRTCH GT STWAIT Sis dredge’ 
026767 162214 172012 SCRTCH, STWAIT 


:SET UP MESSAGE ASKING FOR RESULTS AND SEND IT 


LET OUTMSG := MDMSG1 CLR.BY #100001 
016767 000570 162232 MOV MDMSG1 , OUTMSG 
042767 100001 162224 #100001 ,OUTMSG 
LET OUTMSG+2 := MDMSGi+2 ; 
016767 000556 162220 MDMSG1 +2 , OUTMSG+ 
CALL TEROUT 
017724 004767 172630 PC, TEROUT 


IF ERROR.... INSERT ERROR IN TABLE (MANUF. TESTS ONLY), REPORT ERROR, 
: LOOP IF ENABLED, EXIT TEST IF NO LOOPING 


017730 IF .ERROR THEN 

103015 50010$ 
CALL INSERR IN <#0> 

010546 R5,-(SP) 

012745 000000 #0,-(R5) 

004767 177144 PC” INSERR 

012605 (SP)+,R5 
ERRHRD 50,MSG50,AREA40 

104463 TSERCODE 

50 


2 J 

003467 ‘ MSGS5O 

004262 ; AREA4O 
CKLOOP 

104006 C$CLP1 
EXIT TST 

104032 CSEXIT 

~ 000202 ' .WORD 1L10031-. 
ENDIF 


50010$: 


SACK TERMINAL AND GET ITS RESPONSE 
REPEAT 


500118: 
[GET THE RESPONSE 


CALL TERIN OUT <MCOMP> 
162705 000002 UB #12, R5 
767 PC, TERIN 
012567 (R5) + MCOMP 





6 
ASSEMBLY ROUTINES MACY11 30A(1052) 29=DEC=78 11:50 PAGE 46 
CZD2CB.P11 21-NOV-78 16:33 SEQ 0076 


HANDLE ERROR IF ONE OCCURED. 


IF .ERROR THEN 
103015 50012$ 
CALL INSERR IN <#0> 
010546 R5,-(SP) 
012745 000000 MO #0,-(R5) 
004767 177074 PC, INSERR 
012605 (SP)+,R5 
ERRHRD 50,MSG50,APEA40 
104463 TSERCODE 
20 - 000062 50 
003467 . MSG50 
4 004262 . AREA4O 
CKLOOP 
104006 CSCLP1 
EXIT TST 
104032 CSEXIT 
000132 - WOR L10031-. 
ENDIF 


IF MCOMP EQ #0 THEN 
005767 000424 


MCOMP 
001026 | BNE 500138 
CALL OUTREP 
004767 000120 PC ,QUTREP 


HANDLE ERROR IF ONE OCCURED WHILE ACK'ING 


IF .ERROR THEN 
103023 500148 
CALL INSERR IN <A0> 
010546 R5,-(SP) 
012745 000000 #0,-(R5) 
004767 177026 PC, INSERR 
012605 (SP)+,R5 
CALL INSERR IN <#1> 
010546 R5,-(SP) 
012745 000001 MO #1,-(R5) 
004767 177012 PC, INSERR 
012605 (SP)+,R5 
ERRHRD 50,MSG50,AREA4O 
104463 TSERCODE 
000062 50 
003467 MSG5O 
004262 . WOR AREA4O 
CKLOOP 
104006 ; C$CLP1 
EXIT TST 
104032 CSEXIT 
009050 L10031-. 
ENDIF 


ENDIF 


50012$: 


50014$: 
50013$: 
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‘REPEAT THE LOOP UNTIL A MESSAGE IS RECEIVED 
020116 : UNTIL MCOMP NE #0 
020116 
020122 


;PROCESS THE MESSAGE RECEIVED 


020124 ; CALL STINPT 
020124 000146 JSR PC, STINPT 


IF IN ERROR... INSERT ERROR INTO TABLE “ee TESTS ONLY, REPORT 
; ERROR, LOOP IF ENABLED, EXIT TEST IF NO 


IF .ERROR THEN 
103015 50015$ 
CALL INSERR IN <#1> 
010546 R5,-(SP) 
012745 000001 #1,-(R5) 
004767 176744 PC, Mage 
012605 (SP)+,R5 
ERRHRD 50,MSG50,AREA4O 
104463 TSERCODE 
- 000062 ‘ 50 
003467 ‘ MSG5O 
004262 AREA4O 
CKLOOP 
104006 CS$CLP1 
EXIT TST 
104032 CSEXIT 
000002 «WORD 1L10031-. 
ENDIF 


50015$: 


[END OF TEST 
ENDTST 


L10031: 
E 


SEEEH ETE EEE FEE HEE HET HEE HE HEHEHE HEH Hts tte ett e eet e eee e eee eeteeeteeeee 


; + 
: ROUTINE TO SEND AND ACK IN ORDER TO POLL A TERMINAL + 
: + 


STEFF EFF FFF FFF F EFF FFF EF EEF FFT FFE FFP FFF ttt ttt tt ttt tthe tees tte e tee 
ROUTINE OUTREP 
OUTREP: 


INSERT MESSAGE NUMBER (LAST MESSAGE SENT) AND RESPONSE NUMBER 
s (LAST MESSAGE RECEIVED).... INSERT STATION ADDRESS 











Y ROUTINES 
P11 21-NOV-78 


116767 
116767 
116767 


162705 





012567 


012767 
012767 
004767 


103004 
005267 


000261 
000401 


000241 









16:33 


162002 


161776 
163467 


000002 


000254 


020506 
000010 
174364 


161642 
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:COMPUTE AND INSERT CRC 
CALL CRC IN <#REPM,#6> OUT <REPCRC>. 


000006 
020506 
176660 


[SET UP BUFFER POINTER AND SIZE AND SEND THE MESSAGE 
LET XBUFFER := #REPM 


:= OUTERR + #1 


LEFF EHH FEET HEF t Ht tet HTH ttt tH ttt ttt ttt tt tt tse terete ttt tt tt ttre ttt 


ROUTINE TO PROCESS TERMINAL SELFTEST RESULTS 


e 
SETEF EFT E HEF HEFT FFF ttt tt ttt t teeter ete e eee e teste tsetse terres rtts 


ROUTINE STINPT 


MOV 
JSR 


‘IF AN ERROR OCCURRED, RETURN WITH ERROR. OTHERWISE RETURN NORMALLY 
IF .FRROR THEN 


BCC 
INC 
SEC 
BR 


CLC 





MSGNO ,MSGN 
RMSGNO , REPN 
STRTSA,REPA 


(SP) +,R5 
(R5)+,REPCRC 


#REPM, XBUFFER 
#10,XSIZE 
PC, XMIT 


50002$ 
OUTERR 


50001$ 
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psoe7e 010146 
20300 
020300 010246 
0. 
020302 010346 


R1,=(SP) 
R2,-(SP) 
R3,-(SP) 


PUSH R2 
PUSH R3 


:SKIP RESPONSE HEADER AND CHECK FIRST DATA BYTE 
020304 ; LET R1 := INBUF + #% 
020304 
020310 

SIF IT IS "A", GOOD RESPONSE. OTHERWISE... 


020314 ‘ IFB (R1) NE #101 THEN 


020332 


020372 


062701 
012702 
112122 
112122 
012702 
005201 
111103 
062703 
110312 
104423 
03611 


000002 
003635 


003651 


GET THE BYTE AND CHECK TO SEE IF IT IS ‘'™M’' (MEMORY ERROR) 
LET R3 :B= (R1)+ 
IFB R3 EQ #115 THEN 


MEMORY ERROR.. 


GET THE TYPE AND 


BANK NUMBER 
INSERT INTO ERROR MESSAGE, REPORT THE ERROR AND 


RETURN WITH 


ERROR 
(NOTE: ERROR REPORTING PROTOCOL aes ARE 


IGNORED. 


WILL NOT ACCEPT “— FROM 


THIS PROG 
ANY OTHER INTELLIGENT TERMINAL PROPERLY.) 


R1 := 
LET R2 


R1 + #2 


:= AMTY 


(R2)+ :B= (R1)+ 
(R2)+ :B= (R1)+ 


R2 : 
Ri : 
R3: 
:= R3 + #60 
(R2) 


R3 


#BNO 
R1 + #1 
= (R1) 


:B= R3 


ERRHRD 71,MSG71 


POP R3 


(R1) #101 
50002$ 


(R1)+,R3 


R3,4115 
50003$ 


#2,R1 

AMTY .R2 
(R1)+, (R2)+ 
(R1)+,(R2)+ 
#BNO ,R2 

R1 

(R1) ,R3 
#60,R3 
R3,(R2) 
TSERCODE 
msc71 
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012603 (SP)+,R3 
POP R2 

012602 (SP)+,R2 
POP R1 

012601 (SP)+,R1 
RETURN ERROR 


000261 
000427 


50001$ 
ELSE 
50003$: 


NOT A MEMORY ERROR OR PASS...CHECK FOR 'P’' (PROCESSOR ERROR) 


IFB R3 EQ #120 THEN 
120327 000120 R3,4120 
001010 50005$ 


PROCESSOR ERROR...REPORT IT AND EXIT WITH ERROR 


ERRHRD 72,MSG72 
104423 TSERCODE 
000110 


003654 . MSG72 
POP R3 

012603 (SP)+,R3 
POP R2 

012602 (SP)+,R2 
POP R1 

012601 (SP)+,R1 


RETURN ERROR 
000261 
000414 50001$ 
ELSE 
50005$: 


;RESPONSE WAS NOT LEGAL...REPORT IT AND RETURN WITH ERROR 


ERRHRD 70,MSG70 

104423 TSERCODE 

000106 “ 70 

003556 MSG70 
POP R3 

012603 (SP) +,R3 
POP R2 

012602 (SP)+,R2 
POP R1 

012601 (SP)+,R1 


RETURN ERROR 
000261 
000404 50001$ 
ENDIF 
ENDIF 


ENDIF 


50006$: 
50004$: 
50002$: 
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POP R3 

012603 (SP)+,R3 
POP R2 

012602 (SP)+,R2 
POP R1 

012601 (SP)+,R1 
ENDRTN 


50000$ : ‘ 
50001$: 
R 


000241 
000207 
“MESSAGE AREA FOR SELFTEST 
MCOMP: 0 
MDMSG: .+4 
EMDMG1-2-. 
040 -BYTE 40,2,50,0 
000 
EMDMG1: 
EVEN 
120503 MDMSG1: .+100005 
000004 EMDMG2-2-. 
-BYTE 40,2,51,0 
EMDMG2: 
VEN 
SACK MESSAGE AREA 
REPM: .BYTE ENQ,ACK,200 
: -BYTE 0 
REPA: BYTE 0 
REPCRC: .WORD 0 
PO LOLO LOLOL LOT OLOLOLO LOLOL OLOLOLOLOLO LO LOLOL OOOO OOO Ole OOOO) 
; LOOPBACK TEST = 


: <> 
OL OL OL OLO LOLOL OL OLOLOLO LOLOL OL OLOLOLOLOLOLOLOLOLOLOLOLOLOLOLOL OL OOo 
020516 BGNTST 


[CLEAR ALL FLAGS 


020516 LET ABORT : 
005067 161374 
LET EOMSG . 


005067 161406 
LET EXPINP := #0 
020526 005067 161406 
;START THE LINK (INIT DEVICE, DO DDCMP STRT) 
020532 LET INIT := #0 
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020576 


020576 


NES 


21-NOV-78 


005067 
004767 


103015 
010546 
012745 
004767 
012605 
104463 
000063 


003515 
004262 


104006 
104032 
000460 


010146 
012701 


005767 
001403 


005067 
000403 


012767 


016721 


020127 
001373 
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16:33 
175112 
172252 


000000 
176332 


021414 
171100 


161274 


125125 


161260 
022014 


CLR INIT 
JSR PC,XSTRT 


IF ERROR DURING START-UP...INSERT INTO TABLE (MANUF. TESTS ONLY, REPORT 
:1T, LOOP IF ENABLED--EXIT IF NOT 


IF .ERROR THEN 
CALL INSERR IN <#0> 


CALL XSTRT 


50007$ 
R5,-(SP) 
#0,-(R5) 
PC, INSERR 
(SP)+,R5 
TSERCODE 
51 


MSG51 
AREA4O 


C$CLP1 


CSEXIT 
L10032-. 


ERRHRD 51,MSG51,AREA4O 


CKLOOP 
EXIT TST 


ENDIF 
50007$: 


FILL MESSAGE AREA WITH 256 BYTES OF SELECTED PATTERN 


PUSH R1 
LET R1 := #LOOPB 
IF PATTERN NE 40 THEN 


R1,-(SP) 
#LOOPB ,R1 
PATTERN 
50010$ 
LET SCRTCH := #0 
ELSE 


SCRTCH 
50011$ 


BR 
50010$: 
LET SCRTCH := #125125 
161264 #125125, SCRTCH 


ENDIF 

50011$: 
REPEAT 

50012$: 


LET (R1)+ := SCRTCH 
MOV SCRTCH, (R1)+ 
UNTIL R1 EQ #ELOOPB 
CMP R1 ,#ELOOPB 


BNE 50012$ 
;PUT A 1 AT THE END TO ASSURE THAT THE FINAL BYTE IS NOT NULL (0) 
; LET R1 := #ELOOPB - #1 
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020640 012701 022014 OOPB 
020644 005301 a 5 
LET (R1) :B= #1 
112711 000001 #1, (RI) 


GET THE STATION ADDRESS AND INSERT IT IN THE HEADER 


012701 LET R1 := #MPTABLE + #5 
APT. -R1 
062701 90000 Sm 
eine? LET LOOSTA :B= (R1) 
R1), 
POP R1 (R1),LOOSTA 
012601 (SP)+,R1 


‘INSERT LOOP DATA TYPE 


: LET LOOPB :B= #0SOP 
000030 000516 #OSOP ,LOOPB 


‘SET MESSAGE NUMBER 


: LET LOOPN :B= #1 
000504 


[COMPUTE AND INSERT HEADER CRC 


‘ CALL CRC IN <#LOOPH,#6> OUT <LCRCH> 
000002 #1*2,R5 
000006 Rae tas) 
021402 #LOOPH.-(R5) 
— (SB) SARS 
+ a 
000456 (R5)+.LCRCH 


[COMPUTE AND INSERT DATA CRC 


: CALL CRC IN <#LOOPB,#256.> OUT <LCRCD> 
000002 . — a 


000400 
021414 
176134 


(SP)+,R5 
001030 (R5)+,LCRCD 
:SET UP BUFFER POINTER AND SIZE....SEND MESSAGE 


; LET XBUFFER := #LOOPH 
021404 174662 en wis #LOOPH , XBUF FER 
L x s= # * 
000412 174656 ae #266. .XSIZE 
LL xX 
173640 - PC.XMIT 





SEMBLY 


AS ROU 
CZDZ7CB.P11 


TINE 


1 


V-78 1 


162705 
00476 
012567 


103012 
eigsee 


005767 
001026 


004767 


MACY11 30A(1052) 
16:33 


000000 
176070 


000002 
172576 
000326 


000000 
176024 


000272 


177054 


7 1F ERROR OCCURRED... 


G 7 
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29-DEC-78 
. INSERT THE ERROR INTO TABLE (MANUF. 
sREPORT THE ERROR, LOOP IF ENABLED 
IF .ERROR THEN 
CALL INSERR IN <#0> 


ERRHRD 51,MSG51,AREA4O 


END IF 
CKLOOP 


[SEND ACK'S TO TERMINAL UNTIL IT RESPONDS 


; REPEAT 
50014$: 


*GET RESPONSE 
- CALL TERIN OUT <LCOMP> 


SIF ERROR OCCURS.. ‘or IN TABLE (MAN. ONLY), 
SENABLED, EXIT TEST IF NO 


IF .ERROR THEN 
CALL INSERR IN <#0> 


REPORT IT, LOOP 


ERRHRD 51,MSG51,AREA4O 


ENDIF 
CKLOOP 
IF LCOMP EQ #0 THEN 


50015$: 


CALL C'TREP 


TESTS ONLY), 


50013$ 
R5,-(SP) 
#0,-(R5) 
PC, INSERR 
(SP) + RS 
TSERCODE 
51 

MSG51 
AREA4O 


C$CLP1 


#1*2,R5 
PC, TERIN 
(R5)+,L COMP 


50015$ 
R5,~-(SP) 
#0,-(R5) 
PC, INSERR 
(SP)+,R5 
TSERCODE 
51 


MSG51 
AREA4O 


C$CLP1 


L COMP 
50016$ 
PC ,OUTREP 
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F AN ERROR OCCURS...INSERT IN TABLE (MAN. ONLY), REPORT IT, LOOP 
F ENABLED - EXIT TEST IF NOT 


IF .ERROR THEN 
103023 50017$ 
CALL INSERR IN <A#0> 
010546 R5,~(SP) 
012745 000000 #0,-(R5) 
004767 175762 PC, INSERR 
012605 (SP)+,R5 
CALL INSERR IN <#2> 
010546 R5,-(SP) 
012745 000002 #2,-(R5) 
004767 175746 PC, INSERR 
012605 (SP)+,R5 
FRRHRD 51,MSG51,ARE.440 
104463 TSERCODE 
000063 51 
003515 - WOR’ MSG51 
004262 AREA4O 
CKLOOP 
104006 CS$CLP1 
EXIT TST 
104032 CSEXIT 
000074 -WORD 1L10032-. 
ENDIF 


none oS 


elololeleleleleie) 
VUES SES 


oooo 


50017$: 
ENDIF 
021162 50016$: 
‘ ;REPEAT LOOP UNTIL TERMINAL SENDS LOOPBACK DATA 


021162 j UNTIL LCOMP NE #C 
021162 005767 000210 LCOMP 
021166 001722 . 50014$ 


:PROCESS THE LOOPBACK DATA 


021170 CALL PROLOP 
000062 PC ,PROLOP 
BGNSEG 
021174 C$BSEG 


SREINIT THE LINK 
021176 : LET INIT := #0 
174446 INIT 
CALL XSTRT 
021202 171606 JSR PC .XSTRT 


IF ERROR OCCURS, INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR, 
LOOP ON REINIT IF ERROR LOOPING ENABLED...EXIT TEST IF NO LOOPING 


: IF ERROR THEN 
103020 BCC 50020$% 
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CALL INSERR IN <#0> 
10546 R5,-(SP) 
012745 900000 #0,-(R5) 
004767 175666 PC, INSERR 
012605 (SP)+,R5 
CALL INSERR IN <#2> 
R5,-(SP) 


010546 
012745 000002 #2,-(R5) 
graces 175652 PC, INSERR 


(SP)+,R5 
ERRHRD 51,MSG51,AREA61 
104463 TSERCODE 
000063 51 


003515 . MSG51 
005052 ° AREA61 
ENDIF 
50020$: 
CKLOOP 
104006 C$CLP1 


ENDSEG 
10000$: 
021252 104005 E CSESEG 


‘END OF TEST 
021254 ; ENDTST 


021254 L10032: 
021254 104001 E CSETST 


LEFFPEFEF EFF EF EF E FFF ETE EEE FFE FEET FFF EEE EEF FFE FEE FFE Fee este tee o et 
: + 
. 

: ROUTINE TO PROCESS LOOPBACK DATA + 
: + 
° 

LEFHFEHEFE FE FF EFF FFF FF EF EEF EF EF EEE FEF FEE HFEF FFE FE EFF Ft tte eee e tet ttt 


021256 ROUTINE PROLOP 
FROLOP: 
PUSH R1 


010146 R1,~(SP) 
PUSH R2 

010246 R2,-(SP) 
PUSH R3 

010346 R3,-(SP) 


POINTER TO EXPECTED DATA 
COUNT OF DATA EXPECTED 
POINTER TO DATA FROM TERMINAL 


LET R1 := #LOOPB 
072701 021414 #LOOPB ,R1 
LET R2 := #128. 
012702 000200 #128. ,R2 
021274 LET R3 := INBUF 
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INES 
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021274 016703 


121113 
001423 


011167 
011367 
010546 
012745 
004767 
012605 
104464 


000064 
003543 
005202 


012603 
012602 
012601 


000261 
000411 


021352 


021352 


005702 
001346 


012603 
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16:33 
160656 


163770 
163766 


000002 
175562 


INBUF ,R3 
‘CHECK DATA BYTE=BY-BYTE... 


REPEAT 
50002$: 


ERROR... INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR 
NCLUDING RECEIVED/EXPECTED BYTES), RETURN WITH ERROR 


IFB (R1) NE (R3) THEN 


LIF 
et] 


(R1), (R3) 
50003$ 


(R1) ,A52A 
(R3) ,A52B 
R5,-(SP) 
#2,-(R5) 
PC, INSERR 
(SP)+,R5 
TSERCODE 
52 

MSG5S2 
AREAS2 
(SP)+,R3 
(SP)+,R2 


(SP)+,R1 


LET AS2A := (Ri) 
LET A52B := (R3) 
CALL INSERR IN <A2> 


ERRSOFT 52,MSG52,AREA52 


POP R3 
POP R2 
POP R1 
RETURN ERROR 
| 50001$ 


ENDIF 
50003$: 


“UPDATE COUNT AND POINTERS 

LET R1 := R1 + #1 
LET R2 := R2 - #1 
LET R3 := R3 + #1 


SREPEAT UNTIL ALL DATA HAS BEEN CHECKED 

> UNTIL R2 EQ #0 
R2 
500028 
(SP)+,R3 


POP R3 
POP R2 
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021374 


021376 


022014 


022016 


012602 
012601 


000241 
000207 


MACY11 30A(1052) 
21-NOV-78 16:33 


000 


201 


K 
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POP R1 
ENDRTN 


SLOOPBACK MESSAGE AREA 


LCOMP: 0 

LOOPMG: .+100005 
ELOOPB-2-. 

LOOPH: .BYTE DLE,0,201.0 


LOOPN: .BYTE 0 
LOOSTA: .BYTE 0 
LCRCH: 0 

LOOPB: .BLKW 128. 
ELOOPB: 

LCRCD: 0 


ENDMOD 


40000$: 
50001$: 
R 


(SP)+,R2 
(SP)+,R1 


PC 


SEQ 0088 
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022016 BGNMOD PTCODE 
: HARDWARE PARAMETER CODING 
022016 BGNHRD 
GPRMA DEVICE .0,0,0,177776, YES 


-WORD L10033-L$HARD/2 


VECTOR,2,0,0,400, YES 


TSHILIM 
TSCODE 
PRIOR 


PRIOR,4,0,340,0,7,YES 


340 

TSLOLIM 

TSHILIM 
STATION,4,0,177400,0,377. YES 


TSHILIM 
TSCODE 
Le 
TSLOLIM 
TSHILIM 
TSCODE 
BAUD 
7400 
TSLOLIM 
TSHILIM 


TSCODE 
FLAGZ 
70 


TSLOLIM 
TSHILIM 


TSCODE 
NMODEM 
177777 


LINE .6.0,7,0,7,YES 
BAUD .6,0,7400,0,17.YES 
FLAGZ,6,0.70,0,7.,YES 


GPRML NMODEM,10,177777,YES 


ENDHRD 
022130 ; L10033: 


022130 42104 DEVICE: .ASCIZ /DZ ADDRESS: / 
022136 20072 
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VECTOR: .ASCIZ /DZ VECTOR: / 


Nm 
wi 
im 
No 


PRIOR: .ASCIZ /DZ BUS PRIORITY: / 


SI S 
No ™~ 
nN—P— 


STATION: .ASCIZ /TERMINAL ADDRESS: / 


= 


& GFF SRA SR 
No 


—- Yn Unt 


RF AS 


LINE: .ASCIZ /LINE NUMBER: / 


BAUD:  .ASC1IZ 7BAUD RATE: / 


oo NO 


022252 


et 


:BAUD _ SELECTION: 
YPE TO GET one RATE 


BAUD -_ SELECTION: 
YPE TO GET _ RATE 


i 
1 
2 
3 
4 
3 
6 
7 
1 
1 
1 
1 
1 
1 
1 
1 


0 
1 
2 
3 
4 
5 
6 
7 


; 


050117 LAGZ: .ASCIZ @STOP CODE/CHAR. LENGTH (SEE DOC.): @ 


022316 035051 
ALLOWABLE RESPONSES: 
0 1 STOP BIT 


2 STOP BIT 


e 
. 
° 
e 
- 
e 
° 


orertrenne 
CONAWMCONAW 
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Oceaes 051525 020107 NMODEM: .ASCIZ /USING A NULL MODEM? / 
022332 020101 046114 
022340 046440 046505 
022346 020077 
022352 -EVEN 


: SOFTWARE PARAMETER CODING 
022352 . BGNSF T 


352 000015 -WORD L10034=L$SOF T/2 
GPRMD ALIMIT.0,0,177777,0,77777,YES 


000032 
022406 


177777 


000000 

077777 | TSHILIM 
. GPRML PATTRN,2,177777. YES 

001130 TSCODE 


1 
022455 ° PATTRN 


177777 ‘ 177777 
GPRMD SWAIT,4,0,177777,0,77777.YES 


ENDSF T apes 


L10034: ~ 


020127: 040515 ALIMIT: .ASCIZ /HOW MANY INITIATE TRIES BEFORE ABORT? / 
044440 044516 


PATTRN: .ASCIZ /USE ALL ZERO'S FOR LOOPBACK DATA? / 


SWAIT: .ASCIZ @WAIT FACTOR FOR SELFTEST (20000 = 11/70 - 4000 = 11/10)?a@ 


030061 


022612 
022612 
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4599 022612 LASTAD 


4601 022612 LSLAST:: 
4602 


«REQ DOCTOR.P11[400, 1066 
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— DIAGNOSTIC SUPERVISOR == LOW CORE SET UP 
0 :$ PACE FOR USER POOL POINTER 


CHECKSUM (NOT CURRENTLY USED) 
SIZE OF H.W. PTAB. ALLOCATION 
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1598* 1606 1611* 1627 17894 1806* 1807* 1809 190 1918* 


1388 jane | G39 2065. 2081 2096 Tlew 2154" 20974 2350s 23s 
2566 387 bs 2373 2585 238 Bite Bee 5393 5396. Séate 781* 


425m 


ABOFLA 023136 G 
ABOPAS 023054 G 
T 002116 


1723 2575*  4061* 
4045 


—==3 = 00 
UYINO9 Go 
ease 


3614 3645 3664 3714 3748 3780 4196 


S 
= 


2259* 2455* 
2205* 2c69x = =2271* 2273% 2279 2453* 


19824 2065 2082 093 23284 2393 
2577* 2592 34464 461 


BAUD 

BGN. SU= 

BINMSG 2066 
BLD.HW 030300 
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BLOCK 045712 
BNO 3651 


1935* 1949% 1957 19824  2096* 2097* 34464  3519% 


2160 23274 


3108* 


2400 2434 2457 
3745 3777 3813 


C$BUi 000030 
C$CEFG= 000046 
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CSCLEA= 000012 
CSCLP1= 3666 3716 3750 3782 4260 


C$MSG = 000023 
CSPNTB= 000014 
CSPNTF= 000017 
CSPNTS= 000016 
CSPNTX= 000015 


C$POIN= 000040 


C$QI0 = eit hd 


CSUNBU: 
CSWT™ = 000026 


C$WTU = 000027 34 3288 3683 
D 177776 34484 3469 3471*% 3475 3476 3477* 3478* 3480 3482* 3484" 
3486 5 3511 3513 


7504* Ss 
DDSTRY 013220 3503 0 350 
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2774* 2776* 2778* 
4421 


kkkkeek 740 
28 2947 
036140 


Rkkknt 


3492* 3493* 3494% 3496+ 3500* 


44278 
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022656 G 
022660 G 


pit ty 94 


MRO 
ee a a ot 
= ey MMM - - SSO bs 
sO 


MYNAOM 
W “| 


FSCLEA= 
FSDU = 
FSEND = 


F SHARD= 
FSHW = 
FSINIT 
FSJMP 

F $MOD 
FSMSG = 


FSPWR = 
FSRPT = 
FSSEG = 
FSSOF T= 00000 
FSSRV = 
F$SUB = 000002 
F$SW = 000014 
FSTEST= 000001 
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2425 2778 2907 3012 
2198 2249% 2256 2264 2420 


28534 3581* 3676* 4070% 


1953* 
1951* 


INPUTA 043044 . 
INSERR : 3774 4082 4247 


INSIZ 2251* 3328s 
INTFOR 
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027150 
100000 


15524 


10414 
11514 


"44184 


1386* 1388 1391* 1407* 1448 1457* 1459 1462* 
4346 44264 


G 
G 
4G 
002106 G 
012322 G 
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DOC TOR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS ’ SEQ 0101 
L$CO 002032 G 6994 
LSDEPO 002011 G 904 
LSDESC 002102 G 7204 
002064 7134 
LSDISP 011716 G 702 13204 
L 002250 G 715 1 
LSDRCT 002070 7154 
L 002072 G 7164 
LSDRST 002254 G 716 8184 
LSDTP 002040 G 7024 
011726 G 718 13394 
LSDUT 002076 G 7184 
LSDVTY 002234 G 713 8114 
LSEF 002056 G 7104 
LSEFLG 002034 7004 
LSEXP1 002042 G 70 
LSEXP2 00 7044 
LSEXP3 002046 G 7054 
LSHARD 022020 G 693 4436 44374 
LSHPCP 002016 G 6934 _ 
LSHPTP 002022 G 6954 
011672 G 695 1299 13004 
LSICP 002104 G 7214 
LSINIT 011730 G 721 13474 
L 002026 6974 
LSLAST 022612 G 697 46014 
LSMREV 2050 G 7064 
L 2 6814 
LSREPP 002066 G 7144 
LSREV 2010 G 6894 
L$RPT 011722 G 714 13294 
LSSOFT 022354 G 694 4554 45554 
L$SPC 002062 G 7124 
L$SPCP 002020 G 6944 
LSSPTP 002024 G 
L$STA 002030 G 6984 
L$Sw 011706 G 696 1308 13094 
LSTIML 002014 G 6924 
LSTIMU 002054 G 7094 
LSTIM1 002052 G 70: 
L$TSTI 002100 G 7194 
LSUNIT 002012 G 6914 1388 1459 
L.CLK. 027210 46044 
00372 
L10001 003760 10034 
L10002 004012 1 
L10003 004114 10394 4 
L10004 004146 10544 
110005 004250 10764 
L10006 004256 10824 
L10007 004260 10864 
L10010 004352 11164 
110011 004500 11414 
L10012 004664 11874 
L10013 005014 12124 
L10014 005142 12464 
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L10015 005232 12644 
L10016 005504 12784 
L10017 005306 12834 
L10020 011704 1299 
L10021 011714 1308 
L10022 011722 13304 
110023 011724 13354 
L10024 011726 13404 
L10025 012230 15094 
10026 012350 15494 
L10027 016064 29694 
L10030 016626 32578 
L10031 020164 3619 
10032 021254 4093 
L10033 022130 4436 
L10034 24 4554 
MAJ.IN 022674 G 46044* 
MAJ.LO 050304 46044* 
MAJ. 022676 G 46044* 
MANS = *eeene 680 
1440 
MAN.TI 001244 46044 
MAP1I6 053012 G 46044 
MASCLR= 000020 7514 
MASK.B 031714 46044 
MASK.W 031712 46044 
MCOMP 020464 3628* 
MDOMSG 020466 3586 
MDMSG1 020476 3693 
MEM.SI 027252 46044 
MIN.IN 022670 G 46044* 
MIN.US 022672 46044* 
052354 G 46044 
MSCNEN= 752 
G 012352 15704 
MSGAP 002162 7854 
MSGN 020512 3847* 
GNO 002174 7914 
MSG.AD 022636 G 46044 
MSG.TY 022612 G 46044* 
MSGOO 2264 8234 
MSGO1 002323 8294 
MSGO2 002350 8334 
MSGO3 002437 8444 
MSGO4 002503 8524 
MSGOS 002375 8374 
MSG10 25 8564 
MSG11 002610 8644 
MSG12 264 8694 
G20 002712 8764 
MSG21 002761 8844 
ees 003001 8874 
MSG2 003044 8934 
MSG24 003111 9004 
MSG25 003153 9064 
G26 003210 9114 


MACY11 30A(105 


2) 
C 


L 
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ROSS REFERENCE TABLE == USER SYMBOLS 


1629* 
2024* 


1835 


3719 


775 
1472 
2703 


3757 


1631 
2026 


3753 


793 
1511 


3794 


1636* 
3847 


3785 3821 
1293 1312 
1545 3416 
40294 

1638* 1644 


38284 


1324 1325 1363 1387 1392 
3427 3571 4050 4430 4571 


1652* 


SEQ 0102 


1408 
4597 
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MSG30 9174 
MSG31 9228 
003347 929" 


3663 3713 3747 3779 3815 
4227 4257 4307 


45444 
28574 3005* 3014 3117" = 3127% 3242* 3304* 


1732 1759* 
ISzis 1695 1697 3586* 3587* 3589*  3693*  3694*  3696% 
1731 1760* 


011710 
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022455 45814 
043416 6044 
724 
44914 


19814 
43334 


1477 


1487 


3044* 3049* 3097* 


3372 
2731* 3381* 
2623* 2703 2729* 2824* 2828* 


3235* 3318 3342* 3355* 


2 2 
002176 2302s 
015672 3055* 3061 * 3064» 


3335 
3328 3335* 


3042* 3093* 
3184* 3228* 


SCRTCH 002112 1430* ; 1436* 1485* 1591* 
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1647* 1649 1697*  1698* 1700 1929 
2366* 368* e2ces e200 2413% 241 
2724 78* 5% 7 4107* 411 


693 694 


032104 
000001 


SvC 
SVC INS= 


BIAS 
Baa8 
N 


Ooo 
pepe 
oonnN 
RE VR 


Ro 
ow 


Ra 

oO 

Ww 

Oo 
ooo 
Nooawe 
Sk 
N 

00 -JVOMOWS NNO 
SR 
A NNOMNWOS 


Ow 
WIS O ON OU 
NSS 


N 
CN OWSWNNROWO00O 


NR RVR Re os eee 
MmMO-OWDO 
™N 
mt ae gh G  gehyn ectad | 
ARARIBEASAAS 
MIN OAM NNW 
BOOS COWS 
nO no ane ee 
NMNENNMNO- NSO 
MR RB 2 
MOLWNSTsH = 
ot Pe Se ee | oa) 
QISSSEWRSEY 
NO NMYVINNO 
ao 


peo pe end 
& 


MN 
aS 
ae 
~ 


fe 
NONINININ @ @ AR RP SM SP Oe 


SAS WROCOWNRIN SS SS 
SNWUIWNNICWWNNIN - = $ O 
ao ~N 
A - NID UN O-— O =| WOO 
WNUMSPO00 SS Ponon- 
ie 
CO 0] SWW OWOWO— 
NONINININY @ RR MR PR OP OO 
WNUIEMRO00 SWNT SS 
SASRUVVSRES 
MONMMLCOOs , 
NONMININID 2 2 @ SR VR RP Oe 
SEV WWVARR= ISLS 
SVMS NOVIWNIN = 


NORM Sv 

COW WIOOW SS 

WWOf— 

MOoOoLwn 

Wns &—-WOO 

ons 

~NINOCO 

WL LOWMO 
CONIW 
Wrnov 


NONINININD) @ @ PR PR PR PV RS ee 
Ww 


NINN NN RR RR RR Rm re 
NINN ON NY) @ @ RP PR PR ee 


~N 
NW 
Ra 
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Www 
Ba8 


= 
SAK 


PRK KRHRS 
, 
Ww 
Nm 


SVCSUB= 177777 
SVCTAG= 000001 


Mune 
& Nore 


bad 
¥S 
Oo 


SVCTST= 177777 
SWAIT 022520 
027376 
046250 
022652 
027362 
000377 
015644 


036130 
YM= 010000 


011670 G 
005310 
002114 


1233* 


2156* 
TYPEC 
TYPEPC 036330 
TYPFLA 045752 
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TYPLIN 042332 
TYPNUM 041714 


TSCODE= 002032 
TSERCO= 000064 


TSERRN= 000064 


TSEXCP= 000000 


TSFLAG= 000040 
TSHILI= 077777 


TSLOLI= 000000 
TSLSYM= 010000 


So 


Ss & 


TSNEST= 177777 


g 


MUMIA 
~N 


Ww 


1 
1 
1 
1 
1 
1 
3 
4 
1 
1 
1 
1 
2 


RSaR 
eve Sl 


TSTAGN= 


TSTEMP= 


a 
=< SE 


T$TEST= 000002 
TSTSTM= 177777 


Ed 


SEQ 0107 
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TSTSTS= 000001 
TS$AU = 010023 
TSSCLE= 010026 
TSSOU = 010024 
TSSHAR= 010033 
TS$HW = 010020 
TS$INI= 010025 
TSSMSG= 010017 


TSSRPT= 010022 
0000 


T$$SW = 010021 
TSSTES= 010032 
71 017466 


CROSS REFERENCE TABLE == USER SYMBOLS 


40574 


2911*  3867* 


2960* 
3385* 
2733* 
4178* 


2822s 


2944 


40574 


3383* 


SEQ 0108 


10814 
1246 
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XXDP.D 027162 
XSALWA= 000000 


SERFLG= 000400 


2 
& 
ate 
Be 
= 
oO 
Nm 
w 
z= 
3 
Ww 
w 


ES 


co ed eed cad and end cent ced ed ed ceed end eed en 
ion 
= 


: 


oa 
2 8 
ae 
=n 
BBSRE 
WOkMNO 
eYNES 
RELOE 
S 
oS 


N 
AAULLLHNM 


yoo oe 
S288 
Whe 
S 
SBASLEYS 
Tog 
QUIS & Bw 
BLEAs 
Bouees 


CoWro 
ye 
— 2d — 2d Ss SS SS Os YS 


ed 


3 


ee ee ee eed ee ceed eed eed = ed 
ee ee ce ee ee ee ee eed eed eed eed ed 
Wf On 
SRSSELLSS 


ARW VIVE & & 


oO 
: 
3 
88 
Baz 
“3 
Ss 
Beg 
% 


Nonny 3 2 es 
co NJ 
N 
& 
won 
pm pom | 
WBDNAAAULHHHM 
—_— 


eats ss Ss 2d ss 


Bee 
BeSsy 
NINININ 2 
PeuscsesocesedG 
POSE 
SBSs 
“=. 
cos 
$3 
=e 
oO WOOD OO WAU SSW 
BeoEE 
See 
“ee 
8 ed ot ot ss ss ss ss es 
SSSSy 
MNES 
S 
¥2N 


iN Vee 

Mmrno— 
~yOco 
oor 


0 
5 
9 
2 
1 


31084 
3158 
31928 
3227 
33164 
3345 
3380 
3a 
3 


3386 
34734 


FE 
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RRASN 


3 
1 
3 
0 


$FSBLA= 000170 
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904 91 
508 5094 
590 5944 

3 964 


i. 


_— 
oO 
_— 
1 LF a le | 
BINS 
Muro 
a 


WiOcoruN™~ 
oO 


Wo 
NOS 


re 


adeREne oe eR 


od et et ak pe ek | 
o 


SEQ 0110 
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-P1 17-F EB-78 


:o 
OW = 


MICO.WIWNUI NI 


Vn s&s & 

4 4 sd ds ss ts ss 
SABRERE 
—— 

™ 

w 

‘oO 

—) 

Wis & 

BS 

io ™N 
Beer 
S=V3a 
a5 
Ques 
Rese 
Be 


& 


3 


—fONW 
NO 

n] 

N 


& 


SEES 
3 


= 
as 
CO VARUIWIS 
Soxrsess 
& 
SS 
nN 
o 
Rr 
RASk 
Or Go 


R 
FRABRAGSLN 


‘0.000 
VIWU 
<3 
NPT. 
NINMQMONYNININYDNDY 
BSR 
MW ON § WN 
co 
ESSER 
ESSZes 
RVSALS> 
NO OBO 
NOH ss Ss 


oO 

= 

Ww 
RKUKAUROVRA 


Sos 
WUIWWNOO COND 
NNN  @ 2 ew 
SKIBA 
¥ 
ww 
Ss 
™N 


Mer 
So 
PES 
— 
BRAKS 


oooo 
BR 


mM 
N 
VINInNN 


NWO SW SY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
‘7 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


OUI ES & 
NMNUWw— 


SrRYslags 


SASAs 


VARRSLA 
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W 
ROT 


SFSIF = 000110 


MMM HP KRESS 
VINO & 
Ia w 
NUS 
NNN — 
UVoOe 
32 
#0 


tet 


SFSINC= 000210 
SF SL 000200 


ANE & & NO 
SNVRSSR 
ANNE SRWo 
CoN cow 
UNUINO 
DUNE iN 
YBKASVLYS 


SVs 


0 M00 NP IW 
—0o 


ed ed ed eed nd ced aed ceed ed ed 
ra 

NE POP 
& 

AN 


oO 

~°) 
ss 8 
ODNARMNANE & ENO 
FP tet rt S 
SRIeRAME hes 
ae a 8 a st 

NI 

Ry 


Bk 


MPP RR  - So 


SOOWAKAULL HK HSNO 
WO 

DOOWDAKAKUIL £HKWO 
MVINI O00 OWOOUNN-N 

Riwiad abab habwbabababababal 


So 

= 

Ww 

3 

a 
WoOonwo 


RESSESSE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 


NINN @ @ 2 PR RR RS 


= 


nonony 
nny= 
Ja 





J 9 
ASSEMBLY ROUTINES MACY11 30A(1052) 29=DEC=78 11:50 PAGE 114 
DOCTOR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0113 


3065 


3ES 
™ 
Ww 
WANNA 
INN 
N 
MOND 
ANONW 


ANN 


Nm 

~N 
LANAI AAAI AIA 
WAIAIAIAININN 


AAI AIAI AIA 
Uno 
LA 
MN 
LAAN 
SS 
aes 
25 
UII Se 


Pie 
wty-+ o 5 
SSSA 


pty! 
Sesx 
esata 
oO 
sates 


bo twitw 
SISRCe 
@ 
PII VSanas 


‘Oo 
= 
oO 
= 


DORAL Baer 
Ww 
OW —OCWOWOC 


SAWAA 
rs 
Re 
oO 


RELE 
SSS 


SWAN 
co 
~S 
co 
RR 


Pe ee ee ee he, | 
ad ad 
coco 


vo Wwe 


3 
3 
4 
4 
4 
4 
1 
2 
3 
3 


WOWM We 
ww 
Nw 


WN 
WHF BrAa 
#&—0 


we 
~N 
LS 
zz 
NWE OD -O~N 


BaRATS 
— 
Co 


SO NAAM & 

OWOnN 
Buceuxcy 

Saal 

a 

ov! 

NAQOUSE 

MWun-ouwr 
—— 2 3 — 3 3 3 
Bexganeae 


mow 
Creer. oe. 
SRSKF 


RAS 
MONON IMNININN 9 PP PP 
aw 
Aa-AWN Ww 
NYUIAINIS = 
SSBISSA 
Br Sou eovooe 


MEANMINMNOSO OOAAOUL SW 
Mmnronrnrnrnrn— 


™~ 
opine ini tenn 
w 
NININININININY @ A @ PR PR PS Pl DS OLN 


WO OOO UW OOM 
N 


VI. SWN DO ODAAUNL SWO 
VIN O— NYIWO 


MOMIMIN NINN  @ SR Rm RM Mm SO 
fSWwh— NM 
AWM 

MN=-OOwW 

NOP BNIN IN IN IN) R RS Re PR VS 
MNMINNOONMUS 

WANE MOMVYING 
MNINMNNININ-- ee 
MEWWN 

WAOONnuv! 

NOW fe aN fa 
MMVINMINMINN ee oe 
MSWWN 

WWNODOWM 


mM 
Ww 
A 
Ww 
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579 
700 
7 


Mor 
~w~™NM) 
Sw 
eae 
~~ 

an 


MIN 

co 

— 

Ww 
SBIOVY 
Boia~to 

oo 

—wWw 

Se 


o 


UEWAWR ee 4 
JS VSUS SRLS 
JESS 


=) 
FARLLX 


3 
Ss 
ro} 


SOReR 
NOMBOUMSU 
LoVSSENSSe_e 

Pas stvaheieperiey 

=o— 

Awnioo 


ORI ST Ce 
a 
wes 


Wr 
NO f-—NWw 

WW 

S383 


Wo 
aw 


SIFLEV= 177777 


4 
4 
4 
4 
1 
1 
1 
2 
2 
28 


$I1SK1 = 000001 


$ISK2 = 000001 Hi 31674 3332a 
$1SK3 = 000001 
$1SK4 1 30994 104 — 


$SLINE 015634 
SLOCTA= 177777 


MONA LW 
MOCOUMO CO 
NIW—NMQC 
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3 $708 2308 
ha Gok 
55 562 


Mnonr 
Bes 
oS 

ew 
Sno 


3 


WAWWAAG las) 
AWS SY 
MR ANES NW 
oO WMO Co 

exes 
co pw ew 

P at tae th hh feed 
WOUS &——M0 


=5 
RS=8 


N 
Pa 
= 


Oe tans WHOON 
BI IRE ARs 
™m 
Mr 
3a 
$4 


And &ENO 
& 


YS pee et 

SN MIW NVI 
oa 

SS3e 

SE 


PONIN IN 2 SS Pt SS 3 SV HH PW 
43% 
N™N 
woes. 


o- NAO 
NNO 
-_ 
N 


coco NIN 
WON 
ea0 
Byseeucere 
GO IMOROee 
See 


Sb) 3 32) a 


0.0 


eNO 


QRAIVAAR ID 
ORO == 


000000 Vi—~ 

COW 

C000 CO NW NOOO Wie 
SSSSVSeNye-S 
NO 

eb de 
SS 


S 
RUKAASS 
3 


4 
4 
4 
) 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


‘oO 
wi 
MN or 
ooo 
AVwe & 
ed ed ed ed ed ed 
WNO 
NON) RS 2 ws 

SeZe 
we 

NNO 
Mn 
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c-3 


a= 
N 
za» oOo 


SEQ 0116 


Ooo 
= 
oO 
$ 
‘oO 


WN 


Bas 
— 
= NIN 
~— © 
—— 
ORS 


WG 
yo—— 


iat 
Q—— 
—> 
NBSeSS 


Oo 
BABAS 


MS NIN EO 


oO 
= 


wus 
3 
LAA 
Sas 
gare nete 
Se eNso 
wy 
mee 


SAR 
AAR RRs 

Bak 
SSSASERY 
BOROSA-GABOBE OU 


RSSARIR 


ee 
east 

2 ears 
soe: 


2 PS 


$LSTTA= 000001 


44 
6 
1 
1 
1 
2 
2 


btw ¢ pegs 
noo 8 w 
SENo=AN wooo 


S$NESTL= 177777 


—— SS 
ALR 





ASSEMBLY ROUTI 
DOCTOR.P11 


SNSK2 = 000110 


$NSK3 = 000110 
SNSK4 = 000110 


$SSKO = 050003 
$TAGLE= 177777 


$TAGNU= 050004 


ba EB-78 


MACY11 a, 


09:08 


Wunresees 
eeeggass 
Ee-Fe Beles 


ar es 
Wo 


UIWNRINY Sa SS 
WRuaAMnAonoowew 
SS es g 
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ae ee ee 
4 4 41044 


“2720 


$8 


Mn = 
=~ 

Beate 
BRR 


ee 


23954 


SEQ 0117 





ASSEMBLY qos eas 
DOCTOR .P11 17= 


STEMP = 000300 


MACY11 30A(1052) 


FEB-78 09:08 


ar 


ao 
ge 


20874 
Ow 


29-DEC-78 


ish 


CROSS REFERENCE TABLE -- USER SYMBOLS 


4894 
599M 
891 


161 


10974 


Pee he Re ee 
ae & 


NONI @ SS SS SS Ss SS 
SRS 
SLSIVe 


11:50 PAGE 
4904 2509 
vlad 6104 

ee 
082 
1 168 
2% 299 
22n ad 
074 
Be Bas 
45564 asco" 
554, 10994 
13674 13684 
14074 14084 
14284 14294 
14584 14624 
14834 14844 
15014 15024 
15884 15924 
16194 16204 
16444 16484 
16964 16974 
17994 18004 
18884 19184 
19534 19544 
20014 20024 
20204 20244 
20584 20594 
20894 20934 
21744 = 2175H 
22444 = 2249K 
22734 = =—22744 
235664 23674 
23894 23964 
2422h §8=— 24234 
24654 24674 
25324 25334 
25614 25624 
26214 26224 
26514 265354 
27144 = =2727K 
7584 7604 
2777# 77 
28144 28154 
83 28394 
2919  2927h 
29464 «29474 
30034 30044 
30424 30434 
30594 30604 
30934 30944 
31104 31114 
31534 21544 
31794 31804 


510# 
64 


519 
6474 


11024 


314 
644 


Nye RPV Ss 2 2 oo 
OOOO NAAUUIS SHAW 
Ww VS N 

wk 


e Og 


ereeeeeeded 


a) 
BESS 
SVka 


[aS] 
rie 
2zz 


SEQ 0118 
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31954 32054 064 32104 
8H 32 


$$CASE= 000000 
$$DST = 
S$SELOC= 


26504 
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ce 84 

14 30664 073 
1674 2128 
34 94 33604 


SSERFL= 000000 
SSFLAG= 000001 


Mn 
rs 


$S$FROM= 000000 


$$LOC = 021362 


SS$LOCN= 000000 


S$SREG = 177777 
SSRETU= 000001 


$$RTN1= 050000 


32764 


19824 
34254 
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DOCTOR .P11 17-FEB=78 09:08 


SSRTN2= 050001 


S$$TAG= 050000 
. = 053416 


1608 





SEMBLY ROUTINES 


AS 
DOCTOR .P11 


ABOR Tl 
ALLOCA 
BGWAU 


BGNCLN 
BGNDU 


BSWNUWWWWOOOO 
SSaUSeyrys2s 


1 
1 
3 
1 
1 
1 
1 
4 
1 
1 
1 
2 
3 
4 
1 


17-FEB-78 09:08 


3239 
1789 


MACY11 30A(1052) 29=DEC-78 11:50 PAGE 


1910 


CROSS REFERENCE TABLE -- 


2330 2492 2681 3448 


3566 
1066 


4231 
24724 


2656 


SEQ 0122 
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3710 3744 3776 3812 4224 
3783 3819 4091 4261 


4555 


MOOWONW 


—OO0wdeaus— 
GNSAALSE 


1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
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44824 4572H 45998 
MSERRI 33 2148 2824 3424 26354 
7454 784 39964 0854 


41934 


MSEXCP 
MSEXIT 


MSE XSE 
MSEXT J 
MSGEN 


NO 5. 
SIS 23% 
2 RR ¥e 
oon™nN 
ZEEE 
— 
RR 
ZIESNS 
grETE 


ve) 
g 
& 


9 

1 
81 
01 
05 
1 
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Nm 
vw 
eee 
Bae Tou 
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& 


—_ 
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coo CONO—wW 
eee seeeesed 
SSNS Se 
eee 


45724 
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MSGNTA 99 10394 10544 2 12784 
3064 13 13354 09" 38284 


MSGNTE 
MSHAPT 


MSHNAP 
MSINCR 


elgeeres 


3B 
GSuvyR 
wei 


Vann 
Wn 
Ss 


a3 
Sve 
SSSI EAN AS 


— 


fw 
LYCOMIUIWIN -OOVIWS Cot 


Of We nN 
M—WUWNW 


3 
< 
eie-ee 


g 


Se 
—- |] SW 


WOWN 
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s 
WS 
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1 
1 
2 
4 
1 
1 
4 
1 
1 
1 
1 
1 
1 
3 
3 
4 
1 
1 
1 
3 


MmNmMN—-— 


8 


-2 
Ws 
2 2Rer 

WINN = =) WW ee 


SLVye 


WN 
‘Oo 
w 
S 
& 
np 
oS 
Co 
Ww 
& 
> 
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vi 
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3 


yg ® 


43054 

989" 
11174 
12798 


MSTST. 


NM 
RR 


a 
Bee 


Ni 
Syspwazas 

MNSLERRs 
S Wedeee 


SECees es 
eo 


MM— |) ew 
SNO@WWO 
MMN— | & 
aN 

R 

co 


NENODWO 
= 


Sew 
— ey 
Nr 
Sy yas as 
Sonido 
yen S ae 
ew 
oo 


RS 
R 


eres 
a 


Sree 
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Seek 


ge 


SAND 
SBRANC 


ag 
Tey 


eo 4 13884 ‘ 
22114 25674 
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o6 Seer 39 
14 


9, 

1 & 
a be 
: oe ee we & 


ee 


SCOMPA 


é 


794 
Phd 
oa 

11 


aba 
fe) 
Ww 
= 
wR 
te 


& 


MOA we 

ERELSEES 
ro 
Save 


2 
i Hee 


= 


é 


= 
= oy 
¥ 
ee 
as 


fii 

a 
e38 

S 

= 

i 


ne 
Fee 
ekg 
> 
SELLE 
: 
DoODNDOnERRw 
BEES 


é 


ed ed ed od sd 
aie 
Slee 
ew 
io 
rt 
a 
te 3 
ou 
Sete 
—~— NO 
Sexe 


¥ 
3 
& 
¥ 


: 


SY 
Seeveete ye 


8 et hs ad ot 
—s 


rs 
® 


OOON NAW & 
SIVISME LUN 


333 
353 


$ 


ELSees 
3 


S 
4 
3 

3 
sex 


18264 
19114 
19554 
20844 


4 
33 
Bey 
Nieto} 
EFS 
yy 
See 


RR tt 
saved 
eee 


seat 
CONEY 
eeuee 
MBOWAOU: 
upoes 


MINIM INN NNN 


BBVy 
exrevey 
3 
wees 
SLVESL 


S 
R 


VeeSeue 
yp Stee 
E58 


Ww 
w 
co 
— 
ad 
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7" 
7a 


g 
seeve 
eg 


Seeker 


& 
=D0D 
Pye 
- 
ee 
—— LRHRD 
Py oy ay 
Bz 98h 
=e Eee 


eeropeey 
£3: 


Waa 
™ 
~_ 
— 
— 


eve 


—— 
ouk 
5 WO 
ee 
&- 
lw 


a 


—_ 
eeQtadt 
% 


VEer 
RSS SSeESE 
$e 


WTO SMS ES ENS VOL OLE 


: 
ts 


MM oe 


VIG 
SA 


SSNesSS 

BET33 
r 

Bey 


NINN 3 — SA 
B82 


ax 
Vin 
3 
= 
ft 


Ss 
VVONVVaasVy 
= 
g 


QS 


RS SNA 


SSRBRUR~ 


Nm— 
™ 
oO 


WA 
Vn 
—— 

AAI 


8 
ete 
tiers 


on 

7a 

27184 

29504 29578 
798 

7a 

on 

? 

38834 

O9# 


Pat and 

Sek 
Ww 
See 


3 
vege 
we 


WN eS 
Sb 
oa 
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SLET 


Nm 
WwW 
N 


oe 
SS 
CoS 


srpese 
ecigeeus 
a 
EEGEE 
Busees 


¢ Seve 


eee 
RB 


MegeyyenN 
SEE eee Se Sees 
S2SeS eee 
N eee 
VRVVVSz 
me 


ESSE 


4 

Sa 
144 
O# 
S34 
27a 
i 
8 
5194 
39114 
024 
350M 


2806 
29404 
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2908 cH = =—533504 714 34 rat 
3 36534 


s 

—s 

NS 
= 
SRS 
ee 


fee 
Stee 


SOPCOM 
SOPDEF 


& 
~S 


wage 
gee 
g 


WNUI 
SEL 
AAAS B&W 
SVSELSS 
Se4Es eM 
NS 
Ba 
SY 


e- 
mE Se 
LSSOFLIAS 


WIESE 
Bess 


2 
— a eh ad et 


ai 
ii 
ai 


0000 
our 
om ed US ed a 8 os 3 tt 


cb eb He a 


£8 
22 
Rg 
¥ 


SQSmwenyraanrras 
ve 
BVAaAzR 

a 

anil 

ee 


30 
31 
31 
32 
3 


titer 
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374 7044 7 7074 
7584 7604 : core 


709 7314 
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SOPOR 


-_— 
ov" 


SBRVS 
FRLEV OS 


PLVV 
g 
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114 64 29624 
04 a Ld 30644 
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32354 


hphesequs 
eteue 
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3 
4 
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1 
1 
1 
1 
2 
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16114 16384 16454 
202 0324 


3844 
7814 
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$SSPOP 


= BA 
NRIN 
Taz 
RRR ARSSNIYY 
Nwsosevsee 
VOLICVELE 


S 


SS$SETS 


- ABS. 053416 


ERRORS DETECTED: 0O 
CZD7CB.BIN, CZDZCB. SEQ/CRF /SOL /NL : TOC=SMAC/ML , SPMAC/ML ,CZ2D2(B.P11 
TIME: 100 97 8 SECONDS 


RUN~T IME : 
RUN-TIME RATIO: 531/207=2.5 
CORE USED: 33k (65 PAGES) 





